
465 van da redaktle... 

466 Ard maak GRRRatuidan. 
ankala kanttekenlngen blj 
programme's. 

466 Opmertdngen ovar SuperBasic;Ard 

467 Errata altamatief fount Quill, 
(lederaen maakt weleens sans 
verglsslng...) 

468 Ingezondan madedallngan; ta 
koop, gevraagd a.d. 

468 Tandy plotter CGP115. Vaal 
Interesse... 

468 Prof.Astrologer; aan 
softwarebespreklng. 

470 Kleintje'datum,plan 13.Enkala 
gaconvartaerda programmaatjes. 

471 Voonjltbllkja' 

472 Tandata modem. Ean basprsklng. 

473 Contractor. Ean SB-programma dat 
tuimpf In da was. 

475 All Play All Competltle. Ean handlge 
hulp blj hat organlsaran^SB) 

477 FINDNAME_BAS, v 1.1. Ean 
programme dat zleh 'naar-naar* 
zookt 


477 Microsoft op da QL. Ean basic 
dlaVraamd gaat*. 

478 Archivist. Software basprsklng. 

479 Toevoegen van vekten In Archive. 
Procs.... 

481 QL-tolk. QL an Atari In da bocht. 

483 Prisoner. Hat dilemma nader 
bakeken. 

484 Gelezen.QLTurboQuIll, Turbo SB 
Compiler, Care electronics. 

485 Seiko datamanager._ 

486 Ovar Databases an Archive. Bob 
komt ovar da brug. 

487 Onderdelen Info.Slultlngsdata koplj, 
500sta lid. 

488 Meteosat; Datum BljeenkomsL 

489 CURSUS MACHINETAAL DEEL1. 

494 Ovarzlcht SIN_QL_AIR software. 

497 Overzlcht QUANTA software. 
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JC 


Ledenadmlnlstratle, Sekretariaat, 
Penning meester, Nabestedngen oude 
rummers: 

BOB VISSER, Scheepmakerskade 30, 
3011VX Rotterdam. 010-414.3554 




^Redaktie, Layout en samenstelling 
Quasar 

RON DEN BREEMS, Kroonstaddreef 27, 
3067 RT Rotterdam. 010-455.1234 


Cartridge/Disk-servtce, 
Vragentelefoon voor 
SuperBasic/Pascal/Hardware: 
KEESVANDERWAL, 

20.30 - 23.30 uur: 015 • 120.360 


IX 


Hardware en Onderdeten, Reparaties: 
MICHEL & WIM SPANJER, 

19.00 - 20.00 uur 03404 - 20581 






Machlnetaal en hardware 
vragentelefoon: 

ARD JONKER, 020 - 230.795 


C en machinetaal vragentelefoon: 
MARCKOOL, 020-429.345 



Vertalers: 

FRED BRANDS, Bruggemanlanden 25, 
7542 CA Enschede. 053 - 77.22.11 
RUUD REDDINGIUS, Ruysdaelstraat 73b, 
1071XB Amsterdam. 020 • 643.544 



Vooral voor nieuwe leden nog even het volgende: 


SIN_QL_AIR is een stichting. Voor deze vorm is 
gekozen om het funktioneren van de dub, zoals 
wij hem toch altijd noemen, eenvoudig te houden 
en efficient. In de statuten van de stichting, die 
ieder lid aan kan vragen, of kan vinden in uitgave 
nummer 21 van Quasar, staat dat het doel van de 
stichting is: 

Het bevorderen van het gebruik van en de 
uitwisseling van ervaringen, denkbeeiden en 
programmatuur door gebruikers en belangstel- 
lenden voor de personal computer en de daarbij 
behorende of te verschijnen randapparatuur in het 
algemeen, en in het bijzonder voor de computer 


van het merk Sinclair type QL en de daarbij beho- 
rende of te verschijnen randapparatuur. 

Dan volgt er een stukje waarin staat hoe dat doel 
nagestreefdwordt: 

a/ het mMmaal zes maal per jaar uitbrengen van 
een nieuwsbuletin genaamd Quasar. 
bl het tegen betaiing beschkbaar stolen van 
public domain software door middel van de 
cartridge-service. 

d het organiseren van bfeenkomsten. 

d/ het onderhouden van kontakten met iever- 

anders en zusterorganisaties in het buitenland. 

1 waar mogel^ het gezameljk inkopen van ver- 
brufcsmaterialen. 

V het bieden van telefonische of schriftelijke hulp 
bijprobiemen. 

Volgens dezelfde statuten heeft onze stichting 
minimaal twee bestuursleden; een voorzitter en 
een penningmeester/sekretaris.(Ron & Bob) 
Sommige mensen staan wat huiverig tegenover 
het idee stichting, omdat een stichting geen 
ledenvergaderingen kent; men is dan bang geen 
inspraak te hebben. Het is juist de vrijheid om niet 
te hoeven vergaderen die ons ertoe gebracht 
heeft voor de stichtingsvorm te kiezen; bij een 
iandeljke Vereniging' is vergaderen erg lastig. 

Het belekf is er echter op gericht om zoveel 
mogelijk aan de wensen van alle 'leden' (die dus 
eigenBjk donateurs heten) tegemoet te komen. 

De belangrijkste funktie van sin_QL_air is onge- 
twijfeld het uitbrengen van een nieuwsbrief; de 
inhoud daarvan bestaat altijd voor het allergrootste 
deei uit bijdragen van ledenl Niet alleen dragen de 
leden bij aan de inhoud van de Quasar, ze dragen 
ook bij door het verzamelen van informatie, het 
maken van hardware, het vinden van lage prijzen, 
het organiseren van bijeenkomsten, het telefo- 
nisch beantwooiden van vragen enz. enz. 
SIN.QL.AIR is dus VAN en VOOR ul 

Een iidmaatschapjaar loopt van april tot april. 

Voor /40,- krijgt u een jaar lang de Quasar in de 
bus en kunt u gebruik maken van de faciliteiten die 
sin_QL_airte bieden heeft. 


ZIE VOOR 

GOEDKOPE CARTRIDGES 
DE MEDEDELINGEN VAN 
DE 

CARTRIDGE/DISK-SERVICE !! 
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REDRKTIONEEL 


Voorproefjes. 

Volgende keer een uitgebreid vertiaal over 
microdrives; hoe zit zo'n cartridge in elkaar en hoe 
maaktdeQLgebruik van de tape? Keeszethet 
haarfijn uiteen. 


BEDANKT JOHN! 


Bijeenkomst. 


Zb ongemerkt is John Smits geen redakteur meer 
maar ik wilde het niet nalaten hem hartelijk te 
bedanken voor het fantastische werk dat hij 
gedaan heeft. Zijn hand heikende we in de 
degelijke softwarebesprekingen en de fleurige 
layout. (Zoals ik al eens zei: illustreren is nog niet 
mijn sterke zijde; ik btijf hopen) 

John zai misschien in de toekomst nog wel 
bijdragen leveren in de vorm van artikelen. We 
kijken er naar uR John! Nogmaals bedankt. 

25en2maal500... 


Jawel alweer een bijeenkomst ook; op 23 mei in 
Utrecht. Zie elders in dit nummer de 
routebeschrijving. 

Prijs. 

Het vijfhonderdste lid krijgt op deze bijeenkomst 
het Miracle modem aangeboden. Wie is dat 500ste 
lid? Zoek in dit nummer en u weet of u de 
geiukkigebent. 

"the beginners'elite" 


Dit is alweer het 25ste nummer van Quasar; we zijn 
overde 500 pagina's en over de vqfhonderd 
leden. 524 om precies te zijn. Dat 289 daarvan op 
dit moment nog moeten betalen kan de 
feestvreugde niet minder maken. 


Druk, drukker,. 


Het is zeer druk 'op de redaktie' en ook Bob heeft 
zijn handen vol aan het bijhouden van alte 
betalingen, want er zijn natuuriijk zo 
langzamerhand alweer524-289-235 betalingen 
te verwerken. (reken it wel goed zonder 
computer?) 

Ondertussen hebben we verschillende reakties 
gehad op onze oproep voor goedkoper drukwerk. 
De interessantste was van een lid van de dub die 
een offsetdrukkerij heeft. Vanaf dit nummer dus 
drukwerk. Ook de verzending wordt door onze 
drukker gedaan. Toch bedank voor de andere 
reakties. 

Veei, veel artikelen. Zo veei op dit moment, dat It 
een aantal artikelen tot de volgende quasar bewaar 
omdat meer dan het huidige aantal pagina's te gek 
zou worden. Sommige kopij kwam ook te laat voor 
dit nummer binnen. Elders in dit nummer staan wat 
data die ik als streefdata wl houden voor volgende 
quasars. Dit alles neemt natuuriijk niet weg dat it 
blijf roepen om kopij. Zeker gezien de 
verscheidenheid aan artikelen deze keer vertrouw 
It erop dat zowei beginners als gevorderden hun 
Quill-peuttjes of pennevruchten op biijven sturen. 


Enkele beginners programma's deze keer en een 
super-procedure die zegeviert in ons prisoners' 
dilemma. 

Enfin, er is teveel om op te noemen en ik ben te 
vermoeid om nog zinnige dingen te zeggen. Bob 
heeft zijn zegje gedaan in een artikel over 
database begrippen en Archive en zai me deze 
keer niet uit kunnen lachen om het kleine lettertje 
zoais It dat vorige keer nodig had om nog al mijn 
rOdaktionneel op 66n kantje te krijgen. 

Hier laat It het dus gewoon by. 

Veei leesplezier en tot. 

Ron.® 




t ovb'i® \i 

















1129 DIM DIR$(aantal_regels,max_Jengte) 


Trek het U niet aan, het is niet persoonlijk bedoeld. 
Op pagina 448 van de vorige Quasar heb It me 
even f link geergerd. Niet dat iemand zich daar ook 
maar IETS van hoeft aan te trekken, maar liever niet 
meer zo programmeren. De schrijver heeft al 
gezegd dat kritiek welkom is, daar gaat-ie. Ik zal 
mijn best doen het opbouwend te houden. Als je 
een 'SELect ON' programmeert, wordt het een 
stuk duidelijker als je 66n of twee spaties inspringt, 
om aan te geven hoe diep je genest bent: 
nietzo: maarzo: 

SELect ON a SELect ON reutel 

ON a-7:IF dit THEN dat -7:Fdit THEN dat 

ON a-15:IF zus THEN zo -15:IFzusTHENzo 

END SELect END SELect 

Verder is het jammer dat het programma alleen van 
mdv werkt; tenmiste als je niet 11 keer ’mdv* 
verandert in lip', of 'hdk* of fdk' of wat_dan_ook. 
Het is handiger om aan het begin van het 
programma een variabele te vullen, die aangeeft 
waar het lekkers te halen valt; net zoals je gedaan 
hebt met drivea$ en driveb$. Inmiddels ben fc er 
achter dat all66n een 'dev$' niet voldoende is. Nu 
gebruik ik er 2; 66n voor het data device en 66n 
voor het programma device. 

prog_dev$='hdklJ 

data_dev$='hdk2J 


Dit geeft ook al een hinit wat betreft het slordige 
testen 

op het einde van de file in regel 1160. Beterware: 

1145 IF EOF(#7) THEN EXIT c 


en regel 1080, 1110, 1160 en 1190 laten 
vervalen. (wel 

even de oude file weggooien zoals dat in 1080 
gebeurt.) 

De test IF EOF(#...) kijkt of het gespecificeerde 
kanaalal 

aan het einde van de file gekomen is. 



Nog vaak komen er programma's voor die, 
weliswaar netjes geschreven, verbeterd zouden 
kunnen worden. Zo zou ik graag even terug 
komen op het programma 'geta' op pagina 445 en 
verder. We zien in regel 120 tot regel 1210 een 
aantal malen dezelfde serie opdrachten. We 
kunnen dit vervangen door een procedure die 
■kaart* heet. Het zou er zo uit kunnen zien: 


Dijkstra (een haast genieaal informaticus die 
nederland heeft verruild voor het land der schier 
onbegrensde mogelijkheden) heeft al lang 
geleden een rapport geschreven onder de naam 
'GOTO considered harmful* (GOTO beschouwd als 
schadelijk). Dat blijft onverkort gehandhaafd. 
GEENGOTOdus! 

Om uit een procedure te komen kan met 'RETum' 
gebrufcen, of EXIT. 

Tenslotte nog een truuk om te bepalen hoeveel 
ruimte er in het array dir$ gereserveerd moet 
worden: (regel 1080) 

Opentussen regel 1120 en 1130 defile 

data_dev$&drtve$&'_dlrr 


DEFine PROCedure init 
LET getal = 0 

screen_dcf$='scr_200x200a40,40' 

END DEFine init 

:REMark hoofdprogramma 

* FOR kaart = 0 TO 6 
LET bijdrage = 2 A kaart: REMaik dit zijn 
namelijk 

vraag_kaart 

kaart,bijdrage 
END FOR kaart 

PRINT ’GROTE TRUUK ...etc.\ 

PRINT 'uw kaart was',getal 


en lepel hem leeg. Het aantal regels dat hieruit te 
halen valt voor er EOF optreedt is drie (of twee, dat 
weet ik niet precies) m66r dan het aantal files dat er 
opdiscstaat. 

1121 OPEN_IN#6,. 

1122 aantal_regels = 0:max_lengte=O 

1123 REPeat tel_regels 

1124 IF EOF(#6) THEN EXIT tel_regels 

1125 input #6,dummy$ 

1126 aantal_regels=aantal_regels+1 

1127 IF LEN(dummy$)>max_lengte THEN 

max_lengte =LEN(dummy$) 

1128 END REPeat tel_regels 


DEFine PROCedure 
vraag_kaart(kaart_nummer,bijdrage) 
toonJkaart kaart_nummer 
IF invoer = T THEN LET 
getal=getal+bijdrage 
END DEFine vraag_kaart 

PROCedure toon_kaart(kaartnummer) 
LOCal loopteller 
OPEN #5,screen_def$ 

PAPER #5,0: INK #5,2 
AT #5,5,5 

SELECT ON kaartnummer 
= 1 : 
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FOR loopteller = 0 TO 62 STEP 2 
PRINT !loopteller+l! 

END FOR loopteller 
= 2 : 

FOR loopteller = 0 TO 60 STEP 4 
PRINT! loopteller+2! loopteller+3! 
END FOR loopteller 
= 3:. 


END SELECT 
close #5 

END DEFine toon_kaart 
• 

DEFine FuNction invoer 
LOCal toe ts$ 

REPeat toets 

LET toets$= INKEY$(-1) 

IF toets$ instr ’jJnN' then exit toets 
END REPeat toets 
RETum toets$ 

END DEFine invoer 

Hierbij wil ik het volgende kwijt. Ik geef ten eerste 
toe dat het minder overzichtelijk is wat er in 
toon_kaart gebeurt voordat de getallen op het 
beeldscherm verschijnen. Dit komt doordat ik een 
algorthme heb gebruikt, in plaats van een string 
om de getallen te maken. Dit is alleen maar om aan 
te tonen dat een probleem vaak meerdere 
oplossingengeeft. 

Verder heb ik van de PROCedure invoer een 
FuNction gemaakt. In feite is het enige dat deze 
PROCedure deed, een waarde afleveren. Deze 
werd in loetsS' terug gegeven aan het hoofd- 
programma. Als er maar 1 waarde hoeft te worden 
teruggegeven, is een FuNction echter de 
aangewezenweg. 

Het maken van een procedure toonjtaarf kan 
een aanzienlijke hoeveelheid intikwerk besparen 
doordat er niet steeds 'at #5,5,5' etc. hoeft te 
worden ingetypt. Zou een bepaalde kaart meer 
dan 1 regel nodig hebben, dan is het nodig 
opnieuw het 'AT commando te geven. Misschien 
is het dan eenvoudiger om een ander window op 
te geven. Dit window zou normaal gesproken 
overal door het programma opduiken, en dus 
overal aangepast moeten worden. Hier hebben we 
de definitie in een string gezet, die nmalig, 
bijvoorbeeld in een procedure 'init' een waarde 
gegeven wordt. 

Verder kan 
overzichtelijk, 
geachekten 



Ik welnlg krttlek hebben; 
procedures die met 
zljn, overvloedlg 


commentaar: ga zo door. 
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In de Quasar van februari 1987 zag Jk dat er een 
regel tekst was weggevallen. Bovendien zag ik dat 
ik de verkeerde versie van zowel artikel als 
programma had ingestuurd. In het artikel moet 
staan: 

Op adres 27604 tot en met 27617 staat het 
volgende stukje oode: 

27604 $C407 AND3 D7J52 

27606 $6706 BEQ.S LAB_1 

27606 $C311 ANDJJ D1,(A1) 

27610 $93C9 SUB AX A1 M 

27612 $6012 BRA.S LAB_2 

27614 LAB_1 $1411 MOVE.B (A1)JD2 
27616 $0311 AND.B D1,(A1) 

als dat veranderd wordt in: 

27604 $0311 AND.B D1,(A1) 

27606 $0407 AND3 D7.D2 
27606 $6706 BEQ.S LAB_1 
27610 $43FAxxxx LEA xxxx(PQAl 
27614 $600EBRA.S LAB_2 
27616 LAB_1 $1411 MOVE.B (A1)JD2 

dan hoeft op de plaats van xxxx alien nog maar de 
offset naar het zelf gedefinieerde normale karakter 
fount ingevuld te worden. 

Het bijhorende SuperBasic programma moet 
alsvolgt gewijzigd worden: 

470 DIM dd_code%(6), new_code%(6),offiset%(l) 

540 DATA-15353,26374,-15599,-27703, 24594, 
5137,-15599,-18149 

545 DATA -15599,15353,26374,17402,24798, 
24590,5137,67349 

585 patch ■ check_patch(27604jrcw_codc%) 

595 IF NOT check_patch(27604^)ld_codc%) THEN 
escape 3 

655 IF NOT patch THEN patchjquill 
27604,new_code% 

680 IF patch THEN patch_quill 27604,<Al_code% 

In de februari versie ging de nieuwe QUILL de mist 
in als je op een regel normal, lower en upper door 
elkaar gebruikte. Dit ging alleen op het scherm mis, 
bij het uitprinten van de tekst ging het wel good. 
Met de hier gegeven verbeteringen gaat alles wel 
goed. 

Paf/Hx?pffcfenmrhste. 

'Hans Kraakman 

020-230795 
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Leiden, 2-4-1987 
Beste heer den Breems, 

Bij deze deel k U mede dat ik mijn 
Hdmaatschap opzeg per 1 april 1987 i.v.m. 
de aanschaf van een ******•*—«•**. 

Voorts wilde ik U en Uw coHega's van Sin- 
Ql-air danken voor de vele nuttige 
informatie die U via Quasar verstrekt heeft. 

Heiaas ben k niet produktief geweest met 
bijdragen aan Quasar, maar bijgaand treft 
U een kookboekprogramma voor Archive (1e 
versie; AVT-120 printer) aan. Misschien dat iemand 
hier lets aan heeft. Op de cartridge staat eveneens 
een Quill-file genaamd 'ADVERT (van advertentie). 
Ewald Faber. 





Te koop aangeboden: 

Sinclair QL, Ancona monochroom monitor, 24 
cartridges (20 lege), parallelle printer interface, alle 
Quasars tot april 1987, Sinclair QL gebruikersboek, 
“the Working Sinclair QL“. Alles in 1 koop. 
Vraagprijs fl 450,00. EwakJ Faber, Oude Vest 
33CD, 2312 XR Leiden, tel. 071 -134665. 



HULP GEZOCHT BU ARCHIVE(REN) 

Ik ben bezig aam een onderzoek t.b.v. een scriptie. 
Daarvoor moet k interviews analyseren. Nu wil ik de 
genummerde categoriefin zodanig in Archive 
opnemen, dat ze in verschillende combinaties 
kunnen worden opgehoest. Wie kan mij leren hoe 
dat moet? 


Joy Bakker - 


070 • 281710 (privd) 
070 • 406098 (kantoor) 




II HEER OVER DE TANDY PLOTTER CGP- 

llllllllllii! 115 - . , 

Nadat ik in de vorige Quasar een stukje schreef 
over de Tandy plotter voor een ieuke opruimings- 
prijs, ben ik bedolven onder een stortvioed van 
telefoontjes van mensen uit het hele land. De 
vragen die gesteld werden liepen nogai uiteen, 
maar de meeste mensen vroegen hoe de 
aansluiting moest geschieden. Ik zal dus nu het 
aansluitschemalje hierbij afbeelden voor die- 
genen die het nog niet hebben uitgevonden. De 
installing van de computer is als voIgt; 

1. OPEN 43,SERI HC 

2. BAUD 600 


ARCHIVE-VRAAG. 

Bestaat er een routine of een POKE, 
zodat Archive gelijk in MODE 0 begint, 
dus zonder eerst zijn eigen standaard 
echerm te maken met de commando's 
e.d.? 



zwnrsERS systeem? 

Is er misschien iemand die weet of er een 2witsers 
Systeem' is voor de QL? 

Henk ten Bos De Laan 80g, 9981 GR 

UITHUIZEN 

Tel: 05953 -1299 


AANGEBODEN. 

Ik heb voor de Nefhebber 2 Atari SF 354 
floppydrives te koop. (SSDD) Opslagkapaciteit 
is 360K per drive. De prijs is fl. 350,- p.s. incl. 
voeding en kabei naar QL diskinterface. Wei graag 
een vergoeding voor de portokosten. 

Fred Brands • 053-772211 na 18.00 uur 


Te koop aangeboden wegens aanschaf QL: 
ATARI 520ST met diskdrive, beeldscherm, 
muis, TOS in ROM, 30 diskettes, tekstverwerking, 
spreadsheet, database, basic, fortran, C, etc. 

/1250,- 

Telefoon:.08380 • 10318 


TE KOOP:256 K geheugenultbreldlng van 
Mirade Systems, direct aan te sluiten via de 
expansion port. 

Fl 250,-.Siebren WierstraTel: 02289-1284 


Mensen die de printer niet aan de praat krijgen met 
bijv. Quill en Archive kunnen bij mij de juiste 
printerdriver krijgen. Stuur in dat geval een MDV of 
3'5" floppy op. Het is zelfs mogelijk een 4-kleuren 
screendump te maken met deze plotter, je moet 
alleen geen haast hebben, e.e.a. duurt ruim 8 uur, 
maar het resultaat is er dan ook naar. Een lid uit 
Uitgeest schreef deze screendump routine en 
heeft mij toegezegd deze in de Quasar te 
publiceren. Nog even wachten dus! 

Het aansluitschema van de Tandy plotter is als 
voIgt; 

DIN SERI 


1 - 

2 - 

3- 


-NIET GEBRUIKT 

-3 

-6 


F. Brands 
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p- 1 

Joftva re 

W J BESPREK INC 

PROF. ASTROLOGER & ASTRONOMER 

Astrologie programma t.b.v. het trekken van de ge- 
boorte-, dag- en jaarhoroscoop. Bovendien kan 
een kompatibiliteitstest tussen twee personen 
worden uitgevoerd. Het astronomie programma 
geeft gegevens van de planeten op een bepaakj 
tijdstip. Ik ben een leek wat astrologie betreft en 
hecht er geen waarde aan. Ik heb het programma 
gekocht omdat mijn vrouw en ik toch wel 
geinteresseerd waren. Afgaande op 
besprekingen in andere bladen (o.a. QL World, 
sept '86) en de astroloog van DP is het pakket voor 
een astroloog zeer goed brufcbaar. 

Gegevens. 

Uitgever: Digital Precision (afgekort DP) Prfjs : * 

89.95; DM 176.00 bij Uwe Fischer 
in Hamburg 

Versle: 1.4 

Omvang : 1007 sectoren, programma's en 
gegevens (29 files) 

Medium : 3.25 inch diskette (of 5 cartridges) 

Prog’s : ASTROLOGER (Supercharged, de rest 
evenzo) 

DEFAULTS.EDITOR, 
TEXT_EDITOR en 
ASTRONOMER. 

Manual: 150 paginas rood papier. 

Gebrulksvrtendelljkheid. 

Doe de diskette in de drive en tik 'LRUN 
FLP1_BOOT in. Er verschijnt een menu met de 4 
programma's en de keuze 'SuperBASIC', na de 
keuze voor ASTROLOGER wordt het programma 
uitgevoerd. 

De aanwijzingen op het scherm spreken voor zich, 
na het ingeven van de geboortedatum, tijdstip, 
lengte en breedte graad wordt gevraagd of men 
een radix, transit of progression wil. Daama moet 
aangegeven worden welke gegevens gewenst 
zijn. Vervolgens worden de volgende gegevens 
getoond: Overzicht van de planeten en 
berekende gegevens, Grafische weergave 
(wagenwiel), Aspecten en de Interpretatie teksten 
(bij mij 277 regels radix). 

De schermen waar men om een interpretatie kan 
vragen is bij de radix het 'save'-scherm en bij de 
andere het 'aspects'-scherm. Dit schept in het 
begin enige verwarring. 


Nu is het raadzaam de manual te bekijken en de 
zaken stap voor stap na te lopen. De manual is 
goed samengesteld. De volgende onderwerpen 
komen o.a. aan de orde: Programma's en files, 
Inleiding in de astrologie, Gebruiksaanwijzingen 
voor de programma's, Kaartje met de tijdzones, 
Ujst van steden met lengte en breedte graden 
(o.a. The Hague en Heerlen). 

De manual bevat enkele drukproblemen bij 
tabellen, zodat er goed gelezen en gepuzzeld 
moet worden. Een probleem is wel het engels van 
de manual, daar deze doorspekt is met 
(astrologisch) technische termen. Bovendien 
worden de planeten en aspekten op het scherm 
met symbolen weergegeven wat de behoefte aan 
een papiertje met verklaringen wekt, deze 
bevinden zich verspreid in de manual en helaas 
werkt bij de DEFAULTS_EDITOR de 
<CTRL/SHIFT/F2> niet om een hardcopy van een 
scherm met alle symbolen te maken. 

Mogelljkheden. 

Hier voIgt een opsomming van de mogelijkheden 
om de geinteresseerde lezer (astroloog) een 
indruk te geven van de bruikbaarheid van de 
programmatuur. 

BD- en BDX-files: BD-files bevatten de geboorte- 
gegevens van 1 persoon, daar dit veel loze ruimte 
op schijf veroorzaakt, kunnen deze worden 
gekomprimeerd in een BDX-file. 

De in een BDX-file voorkomende namen kunnen 
op het 1e scherm worden getoond d.m.v. 
<D>,<.>,<ENTER>. Een goed reaktie vermogen is 
gewenst om het scherm te Ireezen' met 
<CTRL/F5>. 

Tekstuitvoer: Scherm, printer, file en er is een 
AUTOPRINT faciliteit t.b.v. dag- en jaarhoroscopen 
van enkele dagen en jaren. 

Grafische symbolen: Grafische symbolen 
worden tussen de tekst geprint bij de 
planetengegevens en de aspekten. Met de 
DEFAULTS_EDITOR kan men dit fenomeen 

i irtQS'hakolon 

FILES-INDEX file: In de FILES-INDEX wordt 
aangegeven welke tekst-files gebruikt worden 
t.b.v. de interpretaties. Men kan de volgorde, soort 
horoscoop en drive opgeven. 

Hulzen-systemen: 7 mogelijkheden, default is 
Placidus. 

Printer settings: Instebaar met de 
DEFAULTS_EDITOR. Indien men de tekst 
naderhand met QUILL wil bewerken is het handig 
de defaults voor de 'SP1000' te gebruiken. 
Symbolen: Kunnen met de 

DEFAULTS_EDITOR worden gewijzigd. 

Orbs: Toegestane afwijking van de aspekten. 
Instebaar zijn, de graden m.b.t. de planeten, het 
percentage m.b.t. de 'cusps' van de huizen en 
percentage van de orb bij de geboorte t.b.v. dag¬ 
en jaarhoroscoop en kompatibiliteitstest. 
TEXT_EDITOR: T.b.v. BD- en BDX-files, de 
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FILESJNDEX file en de interpret atie-files. DP 
zegt, 'gebruik Never je eigen', zoals de Metacomco 
Editor of QUILL (Alleen tekstregels afgesloten met 
een <CR>, geen.DOC file maar een JJSfile). 
Interpretatie-flles: Bevatten de 

tekstfragmenten die geselecteerd worden a.h.v. 
de stand van de pianeten. De tekstfragmenten 
worden voorafgegaan door konditieregels waaraan 
moet worden voldaan. Ik zal trachten hier de syntax 
weer te geven, deze is niet zo in de manual 
aangegeven. 

<tekftkcnditie>:= 

(*^a»diiieigl>l*P^iMieedu»>:^K»idirieigl>} 

[or( *<fconditiergl>l*P<pUncrtnr^ }] 


or- impliciete operator OR, niet intikken I 

Bij "F-regels mag in een <konditie>, <planeet> 
door ■$' worden vervangen. Bij testen wordt de *$' 
vervangen door de met de planeetnummers 
overeenkomende pianeten (OR-operatie). 


op het papier en er zijn geen form-feeds om de 
zoveel regels. Denk aan graden tekenl 

Astronomie programma 

Het astronomie programma komt overeen met het 
astrologie programma. De volgende zaken worden 
getoond: Tabel met pianeetgegevens, De 
aangezichten van de binnenste pianeten, Het 
planetarium met de pianeten en Het zonnestelsel. 
Extra mogelijkheden zijn: Weergave van 
hoeken in graden minuten en sekonden of graden 
minuten en decimalen, 5 koordinaten systemen 
kunnen worden ingesteld. 

Het programma heeft de volgende files nodig: 
ASTRO_TABLE, DEFAULTS en 

HARDCOPY_DRIVER. Een onvolkomenheid is 
dat bij een hardcopy van het scherm met de 
aangezichten van de pianeten, deze toch als 
eieren worden weergegeven. 

Konklusle 


<koikiiUcrgl>:=<SPACE>^ofiditic>{ANI>ckondiiic>{.]]<CR> 


<koodjsie> := { <planeet> [NOT] in (<teken> I <huis>) 

kplaneeo [NOT] <hock> <pUneet> 
kpUneeo [NOT! in {RAD I OTH) <huif> 
I (RAD I OTH)<planeet> [NOT] <hoek> 

<plmeet> 


<planeet>) 


I <pl»cet> [NOT] <hock> {RAD I OTH) 


'in' is voorde duidelijkheid aangegeven. 


^plmeo> := SUN 

<planeetnn> 

<teken> 

<huis> 

<hoek> 


I MOOn I LUNar node I etcetera 

:= kombmatie van 1-10 cijfen van 0-9 
.*= ARIei I TAUnit I GEMini I etcetera 
r= PiRst I SECond I THIrd I etcetera 
~ CONjunction I OPPosition I SSE I etcetera 


Resultaten 


De geboortehoroscoop bestaat uit de volgende 
zaken, overzicht pianeetgegevens, aspekten, 
hardcopy van wagenwiel en interpretatietekst. 

Bij dag- en jaarhoroscopen heeft men de aspekten 
t.o.v. pianeten bij de geboorte. Bij de 
kompatibiliteitstest heeft men het 'cross-test'- 
wagenwiel en de cross-aspects. De gegevens 
zien er goed verzorgd uit. Wil men een goed 
verzorgde tekst, dan is dit te realiseren met QUILL. 
De teksten zijn in het engels en bevatten veel een 
opsomming van kreten, alle uitersten komen voor. 
Men zal zelf de interpretatie moeten aanvuilen met 
andere zaken, zoals de invloed van de 'retrograde' 
pianeten, het aantal pianeten in een groep huizen 
en het aantal positieve en negatieve pianeten. Ik 
stuur alles naar een file, behalve het wagenwiel, 
hier maak ik een hardcopy van. 

Het printen van grafische tekens tussen de tekst 
heb ik uitgeschakeld, daar de zaak in de soep liep. 
Dit laatste moet ik nog uitzoeken voor mijn STAR- 
SG10. Het direkt printen van deze file geeft geen 
mooi resultaat. Het printen begint helemaal links 


De programmatuur ziet er professioneel uit, goed 
afgewerkt met nauwkeurige berekeningen. De 
interpretatiefiles met de kondities bieden zeer veel 
mogelijkheden, het riekt naar een EXPERT 


SYSTEEM II. Deze programmatuur is aan te raden 
voor de amateur astroloog, voor de professionele 
astroloog zie ik in dit produkt een onmisbaar 
hulpmiddel. Hij kan snel de berekeningen 
uitvoeren en heeft nu meer tijd voor het 
interpreteren. Het astronomie programma lijkt meer 
bedoeld voor iemand die met een kijker naar de 




SUPERBRSIC 


!Klelntie’ Datum. PI en Dertlen. 

doorSiebenWierstra 

Het nu volgende programma berekent op welke 
dag een bepaalde datum viel of valt: 

100 PRINT "Voer in: Datum, maand en jaar..." 

110 PRINT "Datum?..."; 

120 INPUT D 
130 PRINT'Maand?... 

140 INPUT M 
150 PRINT "Jaar?... 

160 INPUT J 
170 F-J+D+3*M-3 
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180 X-INT(SNG(M-3)/2) 

190J-J+X 

200 F-F-(X+1)*INT(.4*M+2.3) 

210 F-F+INT(J/4)-INT(3*INT(J/100)/ 4)-1 

220 F-F-7*INT(F/7) 

230 A$-"ZATERDAG.ZONDAG...MAANDAG 
..DINSDAG..WOENSDAG.DONDERDAGVRIJ 
DAG.." 

240 PRINTPRINT "Hef vlel op eenA$(P9 to 
(P9)+9) 

(Ult: KUK Maart 1984, Ingezonden door 
Hans Stavleu uit Leiden) 

Denk erom dat je in A$ van regel 230 het juiste 
aantal puntjes (of spaties) neerzet. 


Het volgende programma berekent de waarde van 
PI. Naarmate het programma langer draait, 
benadert deze waarde het getal PI steeds 
meer... 

90 WINDOW 512,256,0,0PAPER 0:INK 4:CLS 
100 PRINT "PI-BEREKENEN" 

111 AT 4,0:PRINT "PI is ongeveer:" 

112 at 6,0:print "Rekentijd :" 

113 at 8,0:PRINT "Aantal berekeningen:" 

110 DATUM-DATE 

120T-1 :P-0:l-0 
130 P-P+1/T-1/(T+2) 

140T-T+4:I-I+I 

150 AT 4,21 PRINT P4 

151 A-DATE-DATUM 

152 AA-INT( A/3600) :A«A-( AA*3600) 

153 AAA-INT (A/60) :A-A-(AAA*60) 

154 A$-A:IF LEN(A$)<2A$«"0"&A$ 

155 AA$-AA:IF LEN(AA$)<2AA$-"0"&AA$ 

156 AAA$-AAA:IF LEN(AA$)<2: 

AA$-"0"&AAA$ 

160 AT 6,21: PRINT aa$;aaa$;a$ 

170 AT 8,21: PRINT I 
180 GOT0130 

(UIT: KUK-EXTRA Oktober 1985) 


Als je bang bent voor Vrijdag de 13 (heb je de film 
soms gezien....) dan is hier het programma dat 
je kan vertellen wanneer je op moet passen: 

IOOcIs 

110PRINT"VRIJDAG DE 137 
120 INPUT "Welkjaar?...";J 
130B-J/28 
140C«INT(B) 

150 D-B-C 
160A-28*D 
170E-A+.5 
180A-INT(E) 

190PRINTPRINT 

200 IF A-24PRINT "JANUARI, APRIL EN JULI" 

210 IF A-25 OR A-3 OR A-8 OR A-14PRINT 
"SEPTEMBER EN DECEMBER- 
220 IF A-26 OR A-9 OR A-15 OR A-20PRINT 


"JUNI" 

230 IF A-27 OR A-10 OR A-21 PRINT 
"FEBRUARI, MAART EN NOVEMBER- 

240 IF A-0 OR A-6 OR A-17 OR A-23 PRINT 
"MEI" 

250 IF A-1 OR A-7 OR A-18PRINT "JANUARI 
EN OKTOBER" 

260 IF A-2 OR A-13 OR A-19.PRINT "APRIL EN 
JULI" 

270 IF A-4PRINT "MAART EN NOVEMBER- 

280 IF A-5 OR A-11 OR A-22PRINT 
"AUGUSTUS- 

290 IF A-12PRINT "OKTOBER" 

300 IF A-16PRINT "FEBRUARI EN AUGUSTUS" 

310PRINTPRINT 

320 GOT0120 

(UIT: KUK November 1985, Ingezonden 
door Martin Meljerlnk uit Laren (Gld)) Let 
even op regel 170:De opdracht INT rondt altijd 
naar beneden af. Dus INT(1.9) wordt 1. Wil je 
wiskundig afronden, dus.O • .4 naar 

beneden.5 • .9 naar bovendan moet je bij het 
af te ronden getal gewoon 0.5 optellen. Dan 
komjewelgoed uit. 

Dit waren een paar voorbeelden van programma's 
die geschreven zijn op een andere computer, 
maar die het met een beetje aanpassen op 
vrijwel elke computer doen. Daze programma’s 
komen uit de tijd dat fc nog een ZX Spectrum 



Ik heb aangeboden om voor de Quasar een aantal 
artikelen te schrijven, of desgewenst te vertalen. 
Het is natuurlijk niet mogelijk om het iedereen naar 
de zin te maken, maar toch is het erg belangrijk dat 
ik weet wat er bij de leden voor belangstelling is. 
Iedereen heeft natuurlijk een boel voorkeur voor 1 
specifiek onderwerp, en het is in principe niet 
onmogelijk om daar eens wat aandacht aan te 
besteden.Het volgende staat voor de volgende 
nummersopstapel; 

1. Recensies van de programma's uit de 
cartridgeservice. (Uitvoerige beschrijving van de 
soms erg leuke programma’s en utility's) 

2. Zeer uitgebreid verhaal met voorbeelden etc. 
over Artificial Intelligence (Al). Kan een computer 
denken als een mens ? Soms vertoont een QL 
haast menselijke trekjes, zoals het geen zin meer 
hebben. Wat is wel* en wat is niet mogelijk? Lees 
het ademaal in de volgende QUASARS. 

Ik zou graag van leden horen waar hun problemen 
of vragen liggen, ik probeer dan graag voor een 
passe nd artikel te zorgen. 

Fred Brands.053-772211 
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Wilt u een tandata modem kopen dan is het 
verstandig om hem bij DATA-SKIP (01820-20581) 
te kopen. Daar betaalt u maar 349,- en hebt u hem 
de volgende dag. Bij Komin betaalt u F599,- en 
moet u DRIE weken wachten wegens langzame 
levering uit Engeland ???? 

HET AANSLUITEN VAN HETTANDATA MODEM. 

Dit modem wordt geleverd met een engelse 
teiefoonplug. Voor het aansluiten zijn twee 
systemen xJe snelle en de nette. Voor beide 
systemen heeft u een teiefoonplug, 2 
kabelschoentjes (oog met rood kapje) en een 2- 
draads telefoontoestel (Ik heb zelf een HEMA 
telefoon van FI 5.--) of een PTT telefoon waar u de 
blauwe en de rode draad van gebruikt. 

DE SNELLE METHODE 

Knip de teiefoonplug & ongeveer 20 cm kabel van 
het modem, strip allebei de einden af sokJeer er 
kabelschoentjes aan (goed vastknijpen en 
vastsolderen), maak de rode draad van de 
modemkabel aan A van de teiefoonplug vast en de 
witte aan de B.Soldeer uw telefoontoestel aan de 
rode en de witte draad van de engelse 
teiefoonplug vast en stop dit in uw modem in de 
aansluiting gemerkt met PHONE (aan de 
rechteizijkant van het modem) 

DE NETTE METHODE 

Neem een kleine schroevendraaier, een priem oid. 
(met sommige scharen gaat het ook) en steek die 
tussen een van de koperen oontactjes van de 
modemplug (aan de voorkant, wip hem omhoog 
en haal hem er dan uit. Doe dit met alle 4 de 
oontactjes (bewaar ze wel). Geef als dit gebeurd is 
een ruk aan de plug en hij is er af (deze methode 
werkt ook bij SER & CTL pluggen).Neem uw 2 
draads-telefoontoestel haal evt. de plug en evt. 
kabelschoentjes eraf en verwijder de draadisolatie 
over een lengte van ong. 1 cm (de lengte komt 
niet zo nauw) .Vertin deze draadeindjes en neem 
dan de losgemaakte plug .Steek een van de 
einden in de plug en mik zodanig dat het eindje in 
de meest linkse of meest rechtse aansluiting 
terecht komt .Ziet u het draadeindje in het tweede 
(van links of rechts) gleufje? Steek dan een van de 
contactjes in die gleuf en druk hem stevig aan. 
Doe dit ook met de andere maar dan in het andere 
(tweede) gaatje. Mocht het niet lukken vertin de 
draadjes dan opnieuw, het ligt waarschijnlijk aan de 
dikte van de draadjes.Strip de modemkabel een 
eindje af en SOLDEER KABELSCHOENTJES aan 
de rode en de witte draad. Eerst stevig aanknijpen 


en dan vastsolderen.Neem dan een teiefoonplug 
en maak de rode draad aan A vast en de witte aan 
B.Steek uw telefoon met aangepaste plug in de 
PHONE aansluiting aan uw modem, (aan de 
rechterzijde) 

HOE WERKT U MET HET MODEM. 

Laad het bijgeleverde programma QCONNECT en 
toets 3x1 (Vklitel inloggen). Toets een nummer 
van een viditel-achtig bulletin board & ENTER 
(Viditel 06-8422 - Hobbytel 035-231513 beide 24 
uur per dag) en druk op F2. Als het goed is krijgt u 
het openingsbeeld en moet u een toegangscode 
intoetsen (Hobbytel gastcode 11111123456789 
zonder enter) U kunt zo alle 1200/75 baud BBS'en 
bellen behalve viditel BBS'en die op een CBM 64 
weiken (mbase bbs programma), bij deze moet u in 
het menu wat u krijgt na het intoetsen van het 
telefoonnr. de parity OFF zetten en het aantal bits 
op 8 (normaal 7 bits met parity) 2 tekens die u bij 
viditel-achtige systemen nodig heeft zijn * en #. 
Niet viditel BBS'en kunt u in VT100 of viditel 
gebruiken (VT100 heeft meer 
mogelijkheden) .Zorg dat er geen 

telefoontoestellen paralel staan aan uw modem 
(trek de plug van evt slaap- en huiskamer 
toestellen emit), en gebruik dus enkel de telefoon 
die in uw modem zit als u aan het bellen bent met 
uw modem (deze telefoon wordt uitgeschakeld als 
het modem wat u belt on-line gaat). 

HCC-FIDO 

Het bellen met fido is een verhaal apart. Het 
makkelijkste is om uw modem in te stellen op 
1200/75 parity off 8 bits & flow control op XON. bel 
dan fido (met de hand) en als fido zijn carrier geeft 
druk dan op space & enter. Nu heeft fido 3 
verschillende earners 300 - 1200 & 2400 baud en 
u moet dus ontdekken welke de 1200 carrier is. Dit 
is een kwestie van proberen. Over enige tijd wordt 
de volgorde bij elke fido gelijk maar nu word er nog 
mee geSxperimenteerd. Als alles klopt gaat uw 
modem nu on-line. Ziet u allerlei onzin dan heeft u 
de veikeerde. Daik dan op F2 en dan op 2 (hang¬ 
up). Draai het nummer dan opnieuw en probeer 
een andere earner. Wordt uw scherm zwart 
(modem on-line) en ziet u niets dan is het goed, 
druk dan een aantal keren op enter en het 
openingsbeeld verschijnt. 

QL INFO IN BBS'en 

Werkt alles naar behoren bel dan eens naar RvV- 
data en ga dan naar pagina *140# (Info Leverancier 
FT-TEL). Hierin staat QL info (als ik het 
toegeleverd krijg tenminste, bellen of schrijven 
dus). Ook kunt u naar DINDAT bellen. Ook daarin is 
QL info te vinden. RvV data kunt u bellen op telfnr. 
01804-27897, 24 uur per dag in viditel-mode. 
DINDAT kunt u bellen op telfnr. 01672-2076 op 
werkdagen van 7.30 tot 17.00 en op 
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maandagavond van 19.00 tot 22.00 in viditel of VT 
100 met 8 bits zonder parity. U moet wei lid worden 
maar dat is gratis en er wordt duidelijk aangegeven 
hoe, als u als gast iniogt (gastnummers in 
openingsbeeld) Mocht u info hebben voor deze 
twee bestanden of moeilijkheden met het 
aansluiten van of werken met het TANDATA 
modem dan kunt u me bellen of schrijven: 



1000 REMark ’CONTRACTOR’ : PA Verhoef 
: versie 1.1 

1010 REMark zorgt ervoor,dat programma 
verkort wordt 

1020 REMark door alle overbodige spades te 
verwyderen. 

1030 REMark Bovendlen worden woorden als 
DEFine, RETurn enz. afgekort 
1040 REMark Teksten tussen 'quotes' en in 
1050 REMark 'REMark' statements biyven 
onveranderd 

1060: 

1070 CLEAR 

1080 symbod$="!@#$% A &*0-+«~\"'o/r&"" 

1090 alfabet$="abcdefghijklmnopqrstuvwxyz": REMark 
digit$="0123456789" 

1100 PAPER 2:CLS:CLS#0:CS1ZE 3,1:AT 4,8: 

PRINT" > CONTRACTOR <" : CSIZE 0,0 
1110 INPUT#0,"Souice_file? ";object$ 

1120 INPUT#0,"Dest’_file? ";source$ 

1130 OPEN_IN#4 ,object$ 

1140 OPEN_NEW#5,source$ 

1150 REPeat lees_regel 

1160 IF EOF(#4)THEN EXIT lecs_regel 

1170 INPUT#4,regel$ 

1180 nquote regelS 

1185 PRINT#5 

1190 END REPeat lees_regel 

1200 CLOSE#4:CLOSE#5 

1210 STOP 

1220 : 

1230 DEFine FuNction instr(n,hoofd$,item$) 

1240 LOCal p 

1250 psitemS INSTR hoofd$(n TO) 

1260 IF p=0 THEN RETum 0 
1270 RETum pfn-1 
1280 END DEFine 
1290: 

1300 DEFine PROCedure nquote(a$) 

1310 REMark zoek met tussen aanhalingstekens 
1320 LOCal nquole,nquoie2ai,b,Uem_$ 

1330 rem_S="":regelnr%=a$ 

1340 be" "INSTR a$ 


1350 REPeat 1 

1360 nquote=insti{b,a$, m, ):IF nquote=0 THEN 
nquote=LEN(a$)+1 

1370 nquote2=instr(b,a$," m ):IF nquote2=0 THEN 
nquote2=LEN(a$)+1 
1380 IF nquote2<nquote THEN 

nquote=nquote2:REMark ldeinste van 2 nemen 
1390 IF nquote>LEN(a$) THEN 
1400 nquote2=0 

1410 ELSE 

1420 nquote2=instr(nquote+l^$^$(nquote)) 

1430 IF nquote2=0 THEN nquote=LEN(a$)+l 

1440 END IF 

1450 b$=aS(b TO nquote-1) 

1460 zoekstatement b$,rem_$ 

1470 IF regelnr%>0 THEN PRINTW5, 
regelnr%;:regelnr%=0 
1480 PRINT#5, b$; 

1490 IF nquote=LEN(a$)OR nquote2=0 OR 
rem_$o"" THEN EXIT 1 
1500 PRINT#5,a$(nquote TO nquote2); 

1510 b=nquote2+l 

1520 IF b>LEN(a$) THEN EXIT 1 

1530 END REPeat 1 

1540 IF rem_$=""THEN RETum 

1550 PRINT#5,"REM";retn_$(7 TO); 

1560 IF nquote<LEN(a$)THEN PRINT#5, a$(nquote 
TO); 

1570 END DEFine nquote 
1580: 

1590 DEFine PROCedure zoekstatement 
(hoofd$ 4 em_S) 

1600 LOCal nJioofdlus,k,b,end_fl$ 

1610 IF alleen_dp(hoofd$) THEN hoofd$= ":":RETum 
1620 split_rem hoofd$jem_$ 

1630 verander.then hoofdS 
1640 stq>_punt hoofdS 
1650 txel 

1660 REPeat hoofdlus 

1670 FOR n=b TO LEN(hoofd$):IF hoofd$(n) 
INSTR alfabet$&"=" THEN EXIT n 
1680 end_n$="l" 

1690 sla_end_over hoofd$,n,end_fl$ 

1700 REMark PRDMT#OJxx)fd$JLEN(hoofd$)ji 
1710 REMark volgende 2 regels versnelt de 
uitvoering(hoop ik...) 

1720 IF hoofd$(n)INSTR"RDIRSL" AND n<LEN 
(hoofdS)THEN 

1730 IF hoofd$(n+l)INSTR"EAFO"THEN 
1740 REMark let op de pun ten in de volgende 
regels 

1750 IF instr(nJ)oofd$,"RETum ")=n THEN 
hoofdS (n TO ih-5)-"RET." 

1760 IF instr(nJmofd$,"DATA >n THEN 

hoofd$(n+4>="." 

1770 IF instr(n,hoofd$,"RESTORE ">=n THEN 

hoof$(n+7)="." 

1780 IF instr(nJioofd$,'TF ")=n THEN 

hoofd$(n+2)="." 

1790 IF instr(iUioofd$,"REFeat >n THEN 

hoofd$(n TO 
n+5)="REP." 
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1800 IF insti(n,hoofd$,”DERne ">=n THEN 

hoofd$(n TO n+6)*"DEF'&end_fl$ 

1810 IF instr(n,hoofd$,"SELect ">m THEN 

hoofd$(n TO n+6)="SEL" 

1820 IF instr(n,hoofd$,"LOCal >n THEN 

hoofd$(n TO n+5)="LOC" 

1830 REMark enz. (eentje vergeten misschien.) 

1840 END IF 

1830 END IF 

1860 k=instr(n4ioofd$,"GO") 

1870 IFlol THEN 
1880 IF hoofd$(k-l)INSTR "): " THEN 
hoofd$(k+2)=T 
1890 END IF 

1900 k=" PROCedure "INSTR hoofd$:IF k THEN 

hoofd$(k TO k+9K PROC." 

1910 k=" FuNction "INSTR hoofd$:IF k THEN 

hoofd$(k TO k+8)=" FN." 

1920 beinstr(nJ)oofd$,”:”) 

1930 IF b=0 OR b=LEN(hoofd$)THEN EXIT 
hoofdlus 

1940 END REPeat hoofdlus 
1930 verkort hoofd$ 

1960 IF rem_$o""AND hoofd$o"" THEN 
hoofd$=hoofd$&":" 

1965 IF hoofd$="::"THEN hoofd$=":":REMaik 
opheffen van bug 
1970 END DEFine zoekstatement 
1980: 

1990 DEFine PROCedure verkort(hoofd$) 

2000 LOCal hulp$,af,n,naf,syinbool_fl 
2010 hulp$=hc»fd$:af=0:naf= 1 :symbool_fl= 1 
2020 FOR n=2 TO LEN(hoofd$) 

2030 IF hoofd$(n)INSTR symbool$&" "THEN 
2040 IF hoofd$(n-lK "THEN af=af+l 

2050 IF hoofd$(n-1 )INSTR symboolS THEN 

symbool_fl=l 
2060 ELSE 

2070 IF symbooLfl AND hoofd$(n-l)=" "THEN 

af=af+l 

2080 symbool_fl=0 

2090 END IF 

2100 naf=n-af:hulp$(naf)=hoofd$(n) 

2110 IF hoofd$(n)= n l'THEN af=af+l 

2120 END FOR n 

2130 hoofd$=hulp$(l TO naf) 

2140 FOR n=LEN(hoofd$)TO 1 STEP -1:EF NOT 
hoofd$(n)INSTR" :THEN EXIT n 
2150 hoofd$=hoofd$(l TO n):IF hoofd$=" "THEN 
hoofd$="" 

2160 FOR n=l TO LEN(hoofd$):IF 

hoofd$(n>="."THEN hoofd$(n)=" " 

2170 END DEFine verkort 
2180: 

2190 DEFine PROCedure verander_then(hoofd$) 

2200 LOCal nJ^ymbolenS 

2210 n=l :symbolen$=symbool$&"" 

2220 REPeat 1 

2230 n=instr(njK»fd$,"THEN") 

2240 IF n=0 THEN RETum 

2250 IF n>l THEN 

2260 IF hoofd$(n- 1)INSTR symbolenSTHEN 


boofd$(n TO im-3)*":" 

2270 ELSE 

2280 hoofd$(n TO n+3>»":" 

2290 END IF 

2300 n*n+l 

2310 END REPeat 1 

2320 END DERne verandajhen 

2330: 

2340 DEFine PROCedure sla^end.over 
(hoofd$ Acnd_0$) 

2350 LOCal k 

2360 IF "END " INSTR hoofdS-n THEN 
2370 hoofd$(n+3)=T:end_fl$="" 

2380 FOR k=n+3 TO LEN(hoofd$) 

2390 IF hoofd$(k)INSTR alfabetS THEN EXIT k 

2400 END FOR k 

2410 ELSE 

2420 RETum 

2430 END IF 

2440 n=k:RETum 

2450 END DEFine sla_end_ova 

2460: 

2470 DEFine PROCedure stcp_punt(a$) 

2480 LOCal Ut 

2490 k=l 

2500 REPeat 1 

2510 k*instr(M$,"STEP") 

2520 IF k=0 THEN EXIT 1 
2530 IFlol THEN 

2540 IF a$(k-l)INSTR symbod$&" "THEN 

a$(k44K." 

2550 ELSE 
2560 a$(k+4)="." 

2570 END IF 
2580 k=k+l 
2590 END REPeat 1 
2600 END DEFine step_punt 
2610: 

2620 DEFine PROCedure ^)lit_rem(hoofd$jem_$) 
2630 LOCaUn 
2640 n=l 
2650 REPeat 1 

2660 n=instr(n t hoofd$,"REMaik") 

2670 IF n=0 THEN RETum 
2680 IF n>l THEN 

2690 IF hoofd$(n-l)INSTR": ": rem_$=hoofd$ (n 
TO): hoofd$=hoofd$(l TO n-l):EXIT 1 
2700 END IF 
2710 n=n+l 
2720 END REPeat 1 
2730 END DEFine split_rem 
2740: 

2750 DEFine FuNction alleen dp(hoofd$) 

2760 LOCal n 

2770 FOR n=l TO LEN(hoofd$) 

2780 IF NOT(hoofd$(n)INSTR": ")THEN RETum 0 

2790 END FOR n 

2800 RETum 1 

2810 END DEFine alleen_dp 
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All Play All Competitie 


Bij het organiseren van een oompetitie waarbij elke 
deelnemer / elk team 66nmaal tegen de anderen 
moet spelen, is het vaak een vervelend werk om 
uit te zoeken wanneer wie tegen wie moet 
spelen.Onderstaand programmatje lost dit 
eenvoudig op.Allereerst moet het aantal 
deelnemers worden ingevoerd en vervolgens de 
naam van elke deelnemer. Daama wordt de speel- 
volgorde voor iedereen berekend en moeten de 
aanvangstijd, speelduur per wedstrijd en de pauze 
tussen twee wedstrijden worden ingegevoerd.De 
output kan worden geprint op scherm en printer 
(SERI). Wei is er de moeilijkheid dat voor veel 
deelnemers (meer dan 7) de scoretabel niet op het 
beeldscherm past. Maar daar hebben we dan ook 
een printer voor.Eerst wordt de scoretabel ge- 
toond en vervolgens de indeling per ronde met bij* 
behorende aanvangstijd. 

<voorbeeld> 

SCORETABEL: 

12 3 4 



112 CLS:STOP 
113: 

114 DEFine PROCedure initialiseer 

115 WINDOW40.5 12^56,0,0:PAFER#0,0 

116 CLS#0:WINDOW#0,460,40,26,20 

117 WINDOW 460,160,26,70 

118 PAPER#0,7:INK#0,0; BORDERS, 1,4 

119 PAPER 0:INK 4:BORDER 1,7 

120 CSIZE#0^,1:CLS#0:CURSOR#0,100,10 

121 PRINT#0,"A11 play all systeem”; 

122 CSEZE#0,0,0 

123 CLS:AT U 

124 PRINT "Hoeveel deelnemers?”!; 

125 INPUT a_sp:fl =a_sp+1: f2=a_sp A 2+2 

126 DIM nm$(fl,20),a(fl,fl) 

127 DIM pa(f2),pb(f2) 

128 CLS:AT 1,2 

129 PRINT"Voer nu de deelnemers in:" 

130 FOR i=l TO a_sp 

131 AT4,5:PRINTFILL$("",20) 

132 AT4^:PRINT"Nr"U!; 

133 INPUT nm$(i):l=LEN(nm$(i)) 

134 IF 1<20 THEN 

135 nm$(i>«nm$(i)&FILL$C ", 20 - 1 ) 

136 END IF 

137 END FOR i 


1 J. Jansen 

XX 



2 J. Bakker 


XX 


3 S. Slager 


XX 


4 E. Faber 


XX 


INDELING PER RONDE 


Ronde:1 
19:30 J. Bakker 
E. Faber 
Ronde:2 
19:55 J.Jansen 
J. Bakker 
Ronde:3 

20:20 E. Faber • 
S. Slager 


-J. Jansen 
S. Slager 

S. Slager 
E. Faber 

J. Jansen 
J. Bakker 


100 REMark 

101 REMark I 

102 REMark I 

103 REMark I 

104 REMark I 

105 REMark 
106: 

107 initialiseer 

108 bereken 

109 vraag gegevens 

110 CLS:score_tabel 

111 CLS:indeling 


Henk ten Bos, De Laan 80g 
9981 GR UITHUIZEN 
Tel: 05953 • 1299 

ALLPLAY ALL COMPEHT1E 


Henk ten Bos 03-87 
Tel: 05953 - 1299 


138 v$="VRIJ"&FILL$(" ”,16):easp=a_sp 

139 IF *_sp MOD 2=1 THEN 

140 a_sp=a_sp+1 :nm$(a_sp)=v$ 

141 END IF 

142 END DEFine initialiseer 
143: 

144 DEFine PROCedure bereken 

145 REMark- 

146 CLS:AT l^PRINTEen momentje..." 

147 AT 2 T 2:PRINr’Indeling bepalen” 

148 FOR i=l TO a_sp:a(i,i)=0 

149 FOR i=2 TO a_sp 

150 a(14)=i-l:aa.lH-l 

151 END FOR i 
1521=2 

153 FOR i=2 TO a_sp-l 

154 lra(i,l)tl 

155 FOR j=2 TO a_sp-l 

156 IFjoiTHEN 

157 IF k=l THEN verb k,l 

158 a(ij)=k:verfa k,l 

159 END IF 

160 END FOR j 

161 a(i,a_sp)=l 

162 verb 1,2 

163 END FOR i 

164 FOR i=l TO a_sp-l 

165 a(a_spj)=a(i*_sp) 

166 END FOR i 

167 a(a_spa_^))=0 

168 REMark - Volgorde bepalen - 

169 AT 3^:PRINT" Volgorde bepalen" 

170 n=l 

171 FOR r=l TO a_sp-l 

172 i=l 

173 REPeat loop 

174 IF i<a_sp THEN 
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175 FDR j=i+l TO a_sp 

176 IF a(i j)=r THEN 

177 pe(n)=L-pb(n>=j 

178 n=n+l 

179 END IF 

180 END FOR j 

181 W+l 

182 ELSE 

183 EXIT loop 

184 END IF 

185 END REPeat loop 

186 END FOR r 

187 END DEFine bcneken 
188: 

189 DEFine PROCedure verh(x,p) 

190 x=x+p 

191 IF x>=a_sp THEN x=l 

192 END DEFine verii 
193: 

194 DEFine PROCedure vra ag g egevens 

195 CLS:AT 1,2 

196 PRINT'Aanvangstijd (uur) :"!; 

197 INPUT au:AT 22 

198 PRINT*Aanvangstijd (min) :"!; 

199 INPUT am:AT 3,2 

200 PRINTTijd per wdstr. (min) :"!; 

201 INPUT smin:AT 4,2 

202 PRINT'Pauze na *n ronde (min):"!; 

203 INPUT pmin:AT 6,2 

204 FRINTDisplay of SERI (d/s) :"!; 

205 INPUT q$ 

206 IF q$=”s" THEN OPEN#4,SERl:out=4 

207 IF q$o"s" THEN out=l 

208 END DEFine gegevens_invoeren 
209: 

210 DEFine PROCedure indeling 

211 n$=am:r$=au 

212 FOR i^l TO a_sp-l 

213 AT2,2:PRINT*>ut,"Ronde:"!i\\ 

214 FOR i=l TO a_sp DIV 2 

215 IF iol THEN 

216 PRINT#out," 

217 ELSE 

218 tijd 

219 END IF 

220 ind=(r-l)*(a_sp DIV 2>+i 

221 x=pa(ind):y=pb(ind) 

222 bepaal_pr x,y 

223 END FOR i 

224 IF out=l THEN wait 

225 END FOR r 

226 END DEFine dmk_af 
227: 

228 DEFine PROCedure bepaal_pr(x,y) 

229 LOCal a,b,s 

230 a=x MOD 2:b=y MOD 2 

231 SELectONa 

232 -OSELect ON b 

233 *=0:IF x<y THEN s=0:ELSE s=l 

234 =1:IF x>y THEN s=0:ELSE s=l 

235 END SELect 

236 si:SELect ON b 

237 =0:IF x>y THEN s=0:ELSE s=l 


238 «1:IF x<y THEN s=0-£LSE s=l 

239 END SELect 

240 END SELect 

241 IF s-0 THEN 

242 PRlNIWouUim$(x)!"-"!nm$(y)!!; 

243 ELSE 

244 PRINT»ouMim$(y)!"-"!iun$(x)!!; 

245 END IF 

246 PRINTiout,"..-.." 

247 END DEFine bq>_en_print 
248: 

249 E*Fine PROCedure tijd 

250 IF LEN(r$)=l THEN PRINTlout,"0"; 

251 PRINDtouU$:":"; 

252 IF LEN(n$)=l THEN PRINT#out,"0"; 

253 PRINDtouMiS;" 

254 n$=n$+smin+pmin 

255 REPeat 1 

256 ng=0 

257 IF n$>=60 THEN 

258 r$=i$+l:n$=n$-60:ng=l 

259 END IF 

260 IF ng=0 THEN EXIT 1 

261 END REPeat 1 

262 IF r$>=24 THEN r$=r$-24 

263 END DEFine tijd 
264: 

265 DEFine PROCedure score_tabel 

266 v$=FILL$C’-"^3+(easp+l)*3) 

267 w$=" l":s$=FILL$C ”^6) 

268 u$="XXI":CLS 

269 PRINT#ouLs$; 

270 FOR i=l TO easp 

271 IF i<10 THEN PRINTttout," 

272 PRINTftouta!; 

273 END FOR i 

274 PRINT#out,\v$ 

275 FOR M TO easp 

276 FRINT#out,"l"; 

277 IF i<10 THEN PRINTiout," 

278 PRINT#out 4 !nm$(i)!"r; 

279 FOR j=l TO easp 

280 IF j=i THEN 

281 PRINT#out,u$; 

282 ELSE 

283 PRINT#out,w$; 

284 END IF 

285 END FOR j 

286 PRINT#out,\v$ 

287 END FOR i 

288 IF out^l THEN wait 

289 END DEFine score tabel 
290: 

291 DEFine PROCedure wait 

292 AT 14,2:PRINT<enter>"; 

293 INPUT q$ 

294 END DEFine wait 
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FlNDNAME.bas, versie 1.1 


PA Verhoef 

Dit programma zoekt naar naar een bepaald woord 
in prog/file. Hat woord moot links door een karakter 
uit ’sym$' begrensd worden, behaive als 'item$' 
aan het begin vd regel gevonden wordt. Het 
woord moet rechts door een karakter uit 'sym$' 
begrensd worden. behaive als 1tem$' aan het eind 
van de regel gevonden wordt. Indien het woord 
gevonden wordt en aan bovenstaande 
voorwaarden wordt voldaan, dan wordt het 
regelnummer waar het woord gevonden werd 
afgedrukt. 


1110 CLEAR:REMark zonodig volgende regel 
veranderen /vervallen laten 
1120 CLS#0:PAPER 2:CLS:CS1ZE 3,1:AT 
4,lftPRINT"FINDNAME":CSIZE 0,0 
1130 sym$=" 

1140 REMaik cyfcr$="1234567890" 

1150 INPUT#0,"Source_file? ";objcd$ 

1160 INPUT#0,"Dest'_file? ";source$ 

1170 INPUT#0,"Search item? "ptem$ 

1180 OPEN_IN#4 objects 
1190 OPEN_NEW#5,source$ 

1200 FRINT#5,"In het programma '";object$;"' lcomt" 
1210 PRINT#5,""’&item$& m "l"voor als wooed in de 
regels:" 

1220 REPeat lees.regel 

1230 IF EOF(#4) THEN EXIT lees.regel 

1240 INPUT#4regel$ 

1250 regelnr%=regel$ :REMaik rest vervalt automadsch! 
1260 vindnaam regel$4tem$ 

1270 END REPeat lees_regel 
1280 CLOSE#4«UNT#5:CLOSE#5 
1290 STOP 
1300: 


1310 DEFine PROCedure vindnaam (hoofd$4tem$) 

1320 LOCal n 

1330 n=l 

1340 REPeat loop 

1350 IF n>LEN(hoofd$) THEN EXIT loop 
1360 n=instr(n,hoofd$,item$) 

1370 IF n>0 THEN 

1380 IF fit(hoofd$ 4 i 4 H-LEN(item$)-l^ym$^ym$) 
THEN 

1385 PRINT#5,regelnr%, 

1387 END IF 
1390 ELSE 
1400 EXIT loop 
1410 END IF 
1420it*n+l 

1430 END REPfcat loop 
1440 END DEFine vindnaam 
1450: 

1460 DEFme FuNctkm instr(njKX>fd$4tem$) 


470 LOCal p 

480 jwtemS INSTR hoofd$(n TO) 

490 IF p=0 THEN RETum 0 
500 RETum p+n-1 
510 END DEFine 
520: 

530 DEFine FuNction fit(hoofd$,b,e4$^$) 

540 LOCal ok_Lo*_r 

550 IF b<=l THEN okJ«1:ELSE ok>hoofd$(b) 
INSTR 1$ 

600 IF e>=LEN(hoofd$) THEN ok_r=l£LSE 
ok_r=hoofd$(e) INSTR r$ 

610 IF ok_>0 THEN ok_l=hoofdJ(b-l)INSTR 1$ 
620 IF ok_n=0 THEN ok_r=hoofd$(e+l)INSTR 1$ 
650 IF ok_i*ok_l THEN RETum 1:ELSE RETum 0 
660 END DEFine fit 



Er is al veel software geschreven voor de CP/M 
computer en ook voor de IBM-PC's of compatibles. 
Verbazingwekkend is het hoeveel programma's 
daarvan in Basic geschreven zijn. Vooral in de USA 
zijn er veel Basic spelletjes voor de IBM-PC. Ook 
een van de beste Public-Domain Programma's, PC- 
Talk is in basic geschreven. Een goede assembler • 
CHASM- is in basic. Een kleine aanpassing is de 
moeite waard omdat deze programma's meestal 
gratis te verkrijgen zijn. De grafische en sound- 
commando's moeten met de hand indivkJueel 
aangepast worden. En de volgende regels 
moeten eerst gemaakt worden: 


1) Alle TAB'S door TO vervangen. 

2) Alle aanhatingstekens die commentaarvoor- 
stellen in REMark veranderen. 

3) Indien het er niet in staat dan zalna THEN een 
GOTO aangebracht moeten worden. 

4) Na alle NEXT commando's moeten de namen 
van de loopvarfabelen opgenomen worden. 

5) Voor ale ELSE commando's een dubbele punt 
zetten. 


Dan zijn er nog drie constructie's die alleen met de 
hand veranderd moeten worden. 

1) Deconstruct ie 

10 WHILE voorwaarde 
20 

30 WEND 
moet in 

10 REPeat naam 

20 if voorwaarde THEN EXIT naam 
30 

40 end REPeat naam 

omgezet worden. 
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2) Wanneer bij een FOR-NEXT loop direct na het 
FOR statement het eerste commando van de 
tusvotgt, dan moet het commando in een 
nieuwe regel gezet worden. In het andere geval 
geeft het probtemen met de koite vorm van de 
FOR-NEXT lus (zie QL handbook) 

Voorbeeld: 

10 FOR 1=1 T010: a=b**45 
20 

30 NEXT I 
moet in 

10 FOR 1=1 T01011: a=b“45 
20 

30 NEXT I 
verandeid worden. 

3) Alle IF met teken zoals bijv: 

if a$ >= "a" THEN 

moeten in ASCII code omgezet worden. Het 
bovenstaande voorbeeld wordt: 

IF CODE (a$) >=97 THEN. 

Dat ligt aan de de sorteervolgorde van de QL. Daar 
wordt niet de ASCII code vergeleken, maar de 
letters van het alfabet AaBbCc.. enz. (Handbook 
biz. 47) In de listing zijn de belangrijkste 
commando's omgezet, die men voor eenvoudige 
structuren nodig heeft. De functie INSTR (a$,b$) 
houdt geen rekening met grote of kleine letters. 
Bovendien zullen enige functie's niet het gehele 
scala aan mogelijkheden bedekken. Er zijn 
meestal alleen de belangrijkste parameters 
aangegeven. Dat is dan ook die vorm die het 
meeste voorkomt. Het is zeker mogelijk dat er nog 
verbeteringen aan te brengen zijn. En dat er nog 
wel 66n of ander commando ontbreekt! 

Oosterbeek 13febr. 1987. Dirk de Vogel. 


5 REMark ************************ 

10 REMaik Aanpassing van Super Basic 
20 REMaik aan Microsoft Basic 
30 REMark 1987 R.W.Gerling cn 
40 REMaik Diik de Vogel Versie 1.2 
i 50 REMaik ************************ 
60 DEFine FuNction LEFT$(a$,b) 

70 IF b=0 THEN RETum "" 

80 IF b>LEN(a$) THEN RETum a$ 

90 RETum a$(l TO b) 

100 END DEFine LEFTS 
110 : 

120 DEFine FuNction RIGHT$(a$,b) 

130 IF b=0 THEN RETum "" 

140 IF b>LEN (a$) THEN RETum a$ 
150 RETum a$(LEN (a$)-bf 1 TO) 

160 END DEFine RIGHTS 
170: 

180 DEFine FuNction INSTR(a$,b$) 

190 RETum b$ INSTR a$ 

200 END DEFine INSTR 
210 : 


220 DEFine FuNction MIDS(a$Ab) 
230 IF b-0 THEN RETum"" 

240 IF A>LEN(a$) THEN RETum "" 
250 RETum a$(A TO A+b-1) 

260 END DEFine MIDS 
270: 

280 DEFine PROCcdure COLOR (A,b) 
290 INK A: PAPER b 
300 END DEFine COLOR 


310: 

320 DEFine PROCedure FLAY (a$) 

330 REMark Is slechts een primitieve oplossing! 

340 BEEP 20000,10,100,1000,10,5 
350 END DEFine PLAY 
360: 

370 DEFine FuNction VAL(X$) 

380 RETum XS 

390 END DEFine VAL 

400: 

410 DEFine FuNction STR$(X) 

420 RETum X 
430 END DEFine SIRS 
440: 

450 DEFine FuNction SGN(X) 

460 IF X>0 THEN RETum 1: ELSE IF X=0 THEN 
RETum 0: ELSE RETum -1 
470 END DEFine SGN 
480: 


490 DEFine FuNction asc(X) 

500 RETum CODE (X) 

510 END DEFine asc 
520: 

530 DEFine PROCedure fileS (a$) 
540 DIR a$ 

550 END DEFine fileS 
560: 

570 DEFine FuNction spaceS (X) 
580 RETum FILL$(" ",X) 

590 END DEFine spaceS 
600: 

610 DEFine FuNction stringS (X,a$) 
620 RETum FILL$(a${l),X) 

630 END DEFine stringS 



ARCHIVE UTILITY: 'ARCHIVIST 

Uitgever: ARK Distribution, £29,95 


Deze vierde, commerciele, applicatie van de Psion 
Archive 'Runtime module' (een kleinere versie van 
Archive die specifieke applicaties draait maar dan 
veel sneller • RWR) is net op de markt gebracht 
door ARK Distribution. De utility overbrugt een 
kloof tussen de gebruiker en de flexibele maar 
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moeilifl<e Archive 'query* taal. Archivist biedt de 
database gebruiker een aantal buitengewone 
hulpmiddelen om nieuwe applicaties te 
ontwikkelen. Tevens is het nu mogelijk zonder 
trucjes een bestaand bestand te gebrufcen in een 
nieuwe applicatie. leder van 22 bestaande velden 
per record op een beeldscherm met 80 karakters 
per regel en 25 regels kan verandeid worden. 
Archivist kan toegepast worden op bestanden als 
postadressen, huishoudelijke bestanden, 
postzegelverzamelingen, bibliotheekbestanden 
of een fotoregister, om er maar een paar te 
noemen. De commandos die het programma 
sturen worden met een druk op een toets 
uitgevoerd. Een nieuwe procedure maakt het 
mogelijk programma of data gegevens van 
microdrive of floppy te halen. Het Archivist 
beeldscherm maakt niet alleen records zichtbaar 
maar geeft ook informatie in een status regel zoals 
de bestandsnaam, aantal geheugenbytes vrij, het 
record nummer en totaai aantal records. Tevens 
verschijnen systeem commando's in een window 
(zoals bij Archive in een window in het bovenste 
gedeelte). Onder de systeem commando's 
bevinden zich utilities voor file backup met 
overschrijving van bestaande files, het veranderen 
van de inhoud van een file, een directory variant 
met daarin opgenomen de file lengte, het 
samenvoegen van files, opsporen van tekst in de 
'order* velden, het sturen van velden naar de 
printer, sturen van velden naar het beeldscherm 
en 'browsing' (bekijken) van records in aantallen 
van 20 tegelijk. Subfiles kan men selecteren tot 
maximaal 5 velden om vender te manipuleren, 
vanzelfsprekend kan ook selectie plaats vinden 
met numerieke argumenten. 

Volgens de traditie van ARK is ook de beschrijving 
van het programma, een werkje van 10.000 
woorden op A4 formaat, holder en duidelijk 
geschreven en heeft een logische opbouw. Voor 
de gebruiker prettig want de gewenste informatie 
is snel te vinden. Het boekje is gemaakt in de stijl 
van dat van de andere Archive tools van ARK, 
'Cardfile', ’Mailfile’ en Itorary file'. 

Archivist was ontworpen met het oog op flexbiliteit 
en vervult daardoor een behoefte waar andere 
dergelijke programma's tekort schoten. Het was 
bedoeld voor de standaard 128k QL en werkt ook 
met microdrives (hoewel disk drive en 
geheugenuitbreiding praktisch gezien 
noodzakelijk zijn voor serieuze toepassingen - 
RWR). 

De snelheid van het programma is te danken aan 
gebruik van machine code. Het is mogelijk om 
afdrukken te maken met Archivist, maar met een 
ander programma van ARK, 'Mailmerge', kan men 
bestandsgegevens exporteren uit Archive en een 
Quill Jis file maken om geformatteerde 
documenten en brieven te vervaardigen. 

Op deze manier is het zeifs mogelijk om Archivist 
files gemaakt op de QL te versturen naar 
bijvoorbeeld MS-DOS apparatuur en de ICL OPD 
(’One per desk', nooit gezien in Nederland - RWR). 


Het programma is iedere cent waard, een krachtig 
database-tool en makkelijk en flexibel in gebruik. 


Bron: QL World, march 1987 
Auteur: Ron Massey 

Vertallng: R. Reddtnglus, maart 87 


Iofivoegen van velden in Archive. 

In meer dan 66n Quasar en ook in QL-worid 
hebben tips gestaan om aan een bestaand 
Archive-bestand velden toe te voegen. Bij de 
opbouw van een database is het een veelvuldig 
voorkomend verschijnsel, dat meer velden 
noodzakelijk zijn, dan oorspronkelijk bedacht. Als 
dit incidenteel voorkomt, is de in de QL-user-guide 
beschreven procedure een goede oplossing. Als 
je vaker met dit probieem worstelt, is het volgende 
Archive-programma wellicht een oplossing. 

De procedure in de user guide heeft als belangrijk 
nadeel, dat je alle velden, dus ook de reeds 
bestaande in de procedure moet invoeren m.b.v. 
de Archive-editor en dus niet binnen een 
programma. De door mij bedachte procedure 
maakt gebruik van het SPOOLON- en LPRINT 
commando van Archive. 

Met behulp van de functies NUMFLD(), FIELDN() 
en FIELDV() worden de velden van het bestaande 
bestand met LPRINT naar een procfile (ASCII) 
geschreven. Vervolgens kunnen de toe te 
voegen velden worden ingevoerd (worden ook 
met LPRINT weggeschreven). Het met SPOOLON 
gemaakte file in Archive "mergen" en aanroepen. 
Samen met de backup procedure wordt de 
bestaande file omgezet naar een nieuwe onder 
dezelfde naam. Het werkt altijd. Het bekende 
programma Dbaselll kent deze functie standaard 
en werkt ook met het over en weer kopieren van 
bestanden. Uiteraard kan het onderstaande 
programma ook omgebouwd worden zodat velden 
kunnen worden verwijderd en/of tussen-gevoegd; 
zover ben It nog niet. 

Voor mensen met een geheugenuitbreiding (op 
turn QL); deze procedures werken razendsnel via 
ramdisk! 

Het programma 

Deze procedure maakt een backup van het 
bestand. 

♦proc bewaar 
♦print at 2,0;rept(" ’’,60) 

♦ input at 2,0;"Welk bestand wil je wijzigen: 
";fhame$ 

♦ backup "mdvl_"+fiiame$+"_dbf' as 
"mdvl_oud_dbf' 

♦ print at 20,0;rcpt(" ",80) 

♦endproc 














Procedure vooreen standaard schermheader. 
*prockpp;x$ 

* print at 0,0; paper 2;rept(" ”,80) 

* print at 0,0; paper 2;"Datum:" ;date(l); at 

0,19;time0 

* print at 0,29;x$; at 
0,63;int(memoryQ/1024);" kb vrij" 

♦endproc 

Procedure om grote bestanden op 1 scherm te 
krijgen. 

*‘proc page 

* if rcgel=15: let regel=4: let 
kolom=kolom+27: endif 

’^endproc 

Procedure om proc "crea" en "wisseP te maken. 


♦proc veld 
♦mode 0,8 

* kop;".._ 

* kiU ;, mdvl_oud_dbf'kill 

"mdvl_nieuw_dbf' 

* spoolon "mdvl_crea_prg" dump 

* error bewaar 


* if ermum0=100 

* print at 20,0; paper 3;” Bestand 

"+fname$+" is geen databasefile. 

* bewaar 
♦endif 


* kop;"Wijzig bestand """+fname$+"""" 

* look "mdv l_oud_dbf' logical "o" 

* let velden=numfld("o") 


* let tel=0 

* lprint "proc crea" 

* lprint "create "”mdvl_nieuw" "logical 

* print at 2,0;"Het bestand bestaat uit de 

volgende velden:" 

* mint" « 

print 

* let regel=4: let kolom=0 

* while tel<velden 


* let vdd$=fieldn(tel,"o") 

* print at regel,kolom;tel+l;"." 
print veld$ 
et tel=tel+l 
let regel=regel+l 
page 

* endwhiie 


;veld$ 


Niymi 


* let ed$="j" 

* print at 20,0; paper 3;" Geef ""n"" als je 

geen velden meer wilt toevoegen" 

* while ed$="j" 

* print at 18,0;"Nieuw veld:"; 

* input at 18,13;x$ 

* iflower(x$)o"n" 

* print at rcgelJkolom;tel+l;"." ;x$ 

* lprint x$ 

* let regel^regel+l: let tel=tel+l 

* page 


else 

let ed$="n" 
endif 
endwhiie 
lprint "endcreate” 
lprint "endproc" 
lprint "proc wissel" 
print at 20,0pept(" ",80) 
input at 20,0;"Wil je deze wijziging bewaren 
(i/n)?";j$ 
if k>wery$)="i" 
let nummer=0 
while nummercvelden 

lprint "letn."+fieldn(nummer,"o")+"=o" + 
neldn(nummer,"o") 
let nummer=nummer+1 
endwhiie 
lprint "endproc" 
spooloff 
zetover 
else 

close "o" 
spooloff 
endif 
endproc 


Procedure om gemaakte procs te mergen en uit te 
voeren. 

♦proc zetover 

* print at 20,0popt(" ”,80) 

* merge "mdvl_crea_prg" 

♦crea 

* all "o" 

* print at 20,0; paper 3;"" ;recnum("o");""; 

* wissel 

* append "n" 

* endall 

* print at 20,6; paper 3;" records gekopieerd" 

* close "o": close ^’n" 

* kill "mdvl_"+fname$+"_dbf ’ 

* backup "mdv 1 _nieuw_dbf' as 

"mdv l_"+fname$+"_dbf'♦endproc 

NBde~“ krijg je door in de editor"" te gebmken. 
Voorbeek) 

Er is een bestand "joop" met de velden "adres$" 
en"naam$". 

Je wilt het veld lelefoonS" toevoegen. 

De bovenstaande procedures maken dan de nu 
volgende procedures aan. 

Crea maakt het "nieuwe" tijdelijke bestand aan. 


♦proc crea 

♦ create "ramljiieuw" logical "n" 

♦ adres$ 

♦ naam$ 

♦ telefoon$ 

♦ endcreate 
♦endproc 


Wissel zet de velden uit het "oude" bestand over 
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ophetnieuwe. 

*proc wissel 

* let n.adres$=o.adres$ 

* let n.naam$=o.naam$ 
♦endproc 


Jan Borst, Kerkeslngei % 
ill 1981 BJVeisen-zuid 
I!1!!|8I! : ' : t©L 02550-23294 



lltf QL floppy disks zodanio formatteren dat 

QQkdQQr de Atari St kunn en worden oelezen an 

beschreven. 


Hoewel de QL zonder floppy interface geleverd 
wordt, is door de ontwerper wel een floppy- 
formaafstandaard aangebracht. Hiermee zijn de 
floppies uitwisselbaar te maken, ook als de 
controllers van verschillende firma's zijn. Dat is 
eigenlijk niets bijzonders. Het succesnummer is 
een pseudofile, die vanuit SuperBasic bijzonder 
ieuke dingen toelaat. Men opent een datafile 
-*Dxy-, 

hierbij is x het aantal bytes per sector (0-128 Byte, 
1-256 Byte, 2-512 Byte, 3-1024 Byte) en y de 
density (S-enkel (FM) en D-dubbel (FMF)). 

Nu kan men met: 

GET «kanaal\sector + zljde*l56 + 
spoor65536,a$ 

een sector volgens a$ ingelezen worden. De 
functie QLSEC uit de listing staat u toe, met 
logische sector nummers te werken. Hiermee kan 
men zeer, zeer veel bijzondere formaten met de 
QL lezen. Het SANDY Superboard, de Pcml kaart. 
de Controller van Silicon Express, Cumana, en die 
van Kempston ondersteunen een directe toegang 
op de 3 1/2" Floppy-drive. De controller van de 
microdrives is met de Update van Qjump volledig 
Sinclair compatibel (de nieuwe versie is het al). In 
twijfel gevallen kunt u, voordat u koopt, dit eerst uit 
proberen. Het programma is getest met de Sandy 
kaait versie 1.178 met de PCML kaart versie 1.14. 

Na inlezen van een monitor diskette en na het 
plaatsen van een Atari-ST floppy in de drive 
kunnen alle sectoren met - *D2D - ingelezen 
worden. 

De drive is 66n, het oopiSren van data een andere 
zaak. Het programma hiervoor is in Basic 
geschreven om het voor ieder begrijpelijk te 
maken. 

Qm een beterinzictttekriioen worrit htor in hot 


tort de omanisatie verklaarri van een Atari st 

flOPOV. 

Een Atari-floppy is in 80 sporen (0-79) ingedeeld. 
Ek spoor bezit 9 sectoren, daarmee zijn er dus 
totaal 720 sectoren. 

Elke sector biedt plaats aan 512 bytes; op 6<§n 
zijde dus 360 KBytes. En dubbel zo groot voor 
dubbelzijdig. Daarbij is er verschil voor zijde 0 en 

Om nu exact een sector te benoemen zijn drie 
factoren nodig: 'zijde', 'spoor* en 'sector nummer*. 
Bovendien is er nog een logisch sector nummer, 
waarmee alle sectoren van 1 tot 1440 (of 720) 
genummerd worden. De logische sector 1 heeft 
betrekking op sector 1 in spoor 0 op zijde 0. 
Deformule luidt: 

logische sector = 9 * (spoor * aantal 
zljden + zijde) + sector. 

Afhankelijk van enkel of dubbelzijdige floppy wordt 
1 of 2 ingevukJ bij aantal zijden. De logische sector 
1 speelt hier een belangrijke rol. Omdat zijn positie 
altijd 66nduidig is, bevindt zich hier alle belangrijke 
informatie over de floppy zelf. Daarom wordt deze 
sector ook 'BOOTSECTOR' genoemd. 

De floppy van de Atari ST is MS-DOS compatible, 
en omdat de eerste dertig bytes zeer belangrijk 
zijn, worden ze in de volgende tabel gegeven. 


BYTE 

IMHQUD BESCHRIJVINfi 

1-2 


Adres van een 
boot programma 

2-11 


versch. floppy kenmeiken 

12-13 

$0002 

Byte per sector (hier512) 

14 

$02 

Sector per cluster (hier 2) 

15-16 

$0100 

Gereserveerde sectoren 
bij begin van floppy (hier 
1) 

Aantal van FAT (katalogus 
sporen) hier2 

17 

$02 

18-19 

$7000 

Maximale hoeveelheid 
data in inhoud register 
(hier 112) 

20-21 

$D002 Aantal sectoren op de 
floppy (hier 720-enkel 
zijdig) of 


$A005 

(dubbelzijdig) 


$F8 

Kenmerk voor enkei-zijdig 
of 

23-24 

$F9 

Dubbelzijdig 

$0500 

Aantal sectoren per FAT 
(hier 5) 

25-26 

$0900 

Sectoren per spoor (hier 

9) 

Aantal zijden (hier 1 ) of 

27-28 

$0100 

29-30 

$0200 

Dubbelzijdig 

$0000 

Aantal verborgen 
sectoren (hier 0) 


Daarmee kan uit sector nul alle informatie van een 
floppy gehaakf worden. De PROCedure TESTX uit 
de listing be nut deze informatie en de 
PROCedure make.boot zal deze bij het 
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formatteren van een Atari St floppy op de QL 
samenstellen. In de tabel komt tweemaal het 
woord FAT voor. Deze afkoriing betekent 'File 
Allocation Table'. Deze zljn 5 sectoren lang. Ze 
staan op de logische sectoren 2 tot 6 en 7 tot 11. 
Naar binnen volgi de Inhoud van het floppy. Per 
file foeeft de computer 32 bytes nodig. Omdat men 
rnaximaal 112 data namen in de Inhoud kan 
be/gen, legt men op 7 sectoren beslag (-112 * 
32/512). Hiermee zijn de eerste sporen met de 
logische sectoren gevuld. De opbouw van een 
Invoering van de inhoud ziet er als voIgt uit: 

BYTE Betekenls 

1 -8 Filenaarn: Aitijd HOOFDLETTERS 
9-11 File extension Aborting achter punt 
12 File attribuut (zietekst) 

13-22 Niet gebrukt. 

23-24 Tijd van verandering 
25-26 Datum van verandering 
27-28 Pointer op file begin (-eerste cluster) 

29-32 File lengte in bytes 

DE procedures "Attributes", "DatumS", TimeS", 
"Cluster" en "Lengte" decoderen deze informatie. 
Het Attribute-byte heeft de volgende betekenls: 

Waarde Betekenls 

1 Read only file 


2 

Verborgen file, (verschijnt niet in 
Desktop) 

4 

\Systeemfile 

8 

Disk naam 

16 

Overdracht is een Ordner 

32 

FileisArchiv 

64 

Nietgebruikt 

128 

Nietgebruikt 


De waarden zijn door optelling naar verkiezing te 
combineren. De waarde 7 is bijvoorbeeld, een 
read only verborgen systeem file. De datum en tijd 
isingebruikals: 

byte 24 byte 23 byte 26 byte 25 
HHHHHMMM MMMSSSSS J 

JJJJJJM MMMDDDDD 

Hierbij moet men op het INTEL formaat letten. Bij 
de tijd is HHHHH het uur (0 - 23) MMMMMM de 
mlnuten (0 - 59) en SSSSS de seconden (0 - 59 in 
twee stappen) JJJJJJJ het jaar (1980 • 2099), 
MMMM de maand (1-12) en DDDDD de dag (1 - 
31). 

De lengte is een "normaal" vier-byte-getal in Intel 
formaat. 

(Volgende maand voIgt het programma 
dat dlt kunst en vllegwerk voor elkaar 
krljgt.®) 



HEB MEELIJ! 

De inzenders van dit stukje smaken 
het genoegen met Kees van der Wal 
i onder fefen dak te wonen, en ook 
; nog fefen gezamenlijk telefoonnummer 
t e beheren. Alleen, zij zijn geen 
leden van jullie geachte vereniging. 
Wij werken overdag voor onze 
respektievelijke werkgevers ook met 
zulke ap para ten, en zijn blij 's 
avonds en in de weekenden niet weer 
achter zofa mono- dan wel polychrome 
beeldbuis te hoeven doorbrenger* * Wij 
gunnen jullie je pleziertje uitermate, 
hoor, en Kees natuurlijk ook, maar 
wij maken andere keuzes als het gaat 
om het besteden van onze vrije tijd. 

! Trouwens niet alleen onze vrije tijd is 
| in het geding. Wij moeten ook nog 
i eten koken, eten opeten en allerlei 


pen zijn. Nu is het natuurlijk wel 
moeilijk, om, als je tussen 20.30 en 

23.30 uur niet in staat bent op te 
bellen, je ongeduld te bedwingen, en 
natuurlijk is het heel verleidelijk om 
dan maar even buiten die uren te 
bellen; maar ... je bent niet de 
enige! en wij krijgen al die klanten 
hier op hetzelfde nummer aan de lijn. 
En moeten hem of haar wfefer ver- 
wijzen naar .... een tijdstip tussen 

20.30 en 23.30! 


Mariet en John. 


huishoudelijke klussen doen. 
Vervelend alleen dat wij daarbij nogal 
eens gestoord worden door leden van 
de QL-fanclub die vraagbaak Kees 
buiten de daarvoor geldende tijden 
menen te kunnen opbellen met vragen 
en problemen waar zij tegenaan gelo 






















Henk ten Bos Rlents Alberts 

Als nieuw lid kreeg ik een aantal oude Quasars in 
handen en vond daarin ondermeer het artikel over 
het 'Prisoner's dilemma'. Nu ben ik, als informatica- 
student, altijd al gelnteresseerd geweest in 
problemen, vandaar dat ik eens wat dieper in de 
geleverde programma's dook en eveneens een 
medestudent het probleem voorlegde. We von- 
denhetvolgende: 

-De oplossing van Diederik van Donk-(Quasar 23, 
pagina418) 

TABEL 1: 

Een aantal malen Quasar - van Donk met 
bijbehorende puntenaantal.(Randomise bij van 
Donk weggelaten, anders steeds hetzelfde 
antwoord) 


poging pnt_a 

pnt b 

1 

171 

176 

2 

153 

158 

3 

250 

250 

4 

195 

200 


De regelmaat in deze tabel frappeerde mij. 
Verdere bestudering van het programma leverde 
het antwoord: 

Transaktie 1 levert: aktie_a-1 en aktie_b-0 en 
bijgevolg A=0 en B«5. Vervolgens zijn er de 
volgende twee mogelijkheden: 

1. Voor alle transakties geldt md(20)<-19, dan 
eindigt de cyclus in A-250 en B-250. 

2. Voor zekere transaktie n geldt: RND(20)>19, 
dan vervolgt de cyclus met steeds aktie_a«0 
AND aktie_b«0. Bijgevolg eindigt de cyclus in 
een toestand A-m en B-m+5 voor zekere m. 

Het vermoeden was: 

Stellino: 

De procedure van Van Donk* is niet te verslaan! 
Men kan hoogstens een procedure schrijven die 
een gelijkspel bewerkstelligt. 

Bewijs: 

De enige mogelijkheid om beter te scoren dan van 
Donk is, wanneer aktiejk«0 en aktie_Donk«1. 
Dan scoor ik namely 5 punten en van Donk niets. 
Wanneer kan dit optreden? Bij de eerste transaktie 
niet, want dan kiest van Donk aktie-0. Het moot 
dus in een latere aktie gebeuren, nl. wanneer van 
Donk voor de eerste keer aktie_Donk«1 neemt. 
Op dat moment kiezen wij actie_ik=0 en scoren. 


Echter, wanneer word! aktieJDonk voor de eerste 
keen ?!? 

Uit het programma blijkt: als de tegenspeler 
aktie_ik-1 in de vorige poging genomen heeft. In 
de vorige poging was aktie_Donk echter 0 (we 
hadden veronderstekl dat dit de eerste keer 
aktie_Donk«1 was!) oftewel in de vorige poging 
heeft van Donk 5 punten gescoord en wij niets. 
Met onze winst komen wij dus slechts op gelijke 
hoogte en kunnen zo nooit winnen. De procedure 
van Van Donk* is nog eenvoudigerte maken: 
PROCEDURE speler_a aktie_a=0 
END DERne speler_a" 

Speel gewoon iedere keer vals. Speelt de 
tegenstander ook vals, dan levert dat ieder 1 punt 
op. Is de tegenstander een keer zo dom om eerlijk 
te handelen, dan is de winst: 5 punten voor mij. 
Het is dus weinig zinvol om te proberen een 
programma te maken om van Donk te verslaan, 
want dit iukt niet. Daarom is het misschien wel leuk' 
om het probleem te verleggen naar het 
handelsdilemma: 

Qpaave: 

Schrijf een procedure die tegen de al aanwezige 
procedures een zo groot mogelijke winst behaalt. 
Hieruit blijkt al dat de procedure van D. van Donk 
nooit een grote winst kan halen tegen zichzelf. 
Voorbeelden: 

Een 0-en genererende procedure is 
onverslaanbaar en zal per transaktie meestal 1-1 
spelen. Dit is dus een matige winst (100 na 100 
transakties). 

Een 1-en genererende procedure kan geen 
enkele andere procedure verslaan, maar zal tegen 
zijn tegenstander toch meestal 3-3 spelen. Dit 
levert dus na 100 transakties een grote winst 
(300): een betere procedure. 

Condusie: 

onderstaande procedure zal waarschijnlijk van 
geen enkele procedure winnen, maar na tegen 
meerdere tegenstanders zaken te hebben 
gedaan zal deze toch een van de procedures zijn 
die grote (de grootste?) winst heeft geboekt! 

1000 DERne PROCedure speler_a 
1010 REM R. Alberts, Groningen 
1020 IF transaktienummer-1 THEN 
1030 transaktie_a«1 
1040 RETum 
1050 END IF 

1060 IFvorige_b-1 THEN t-t+1 
1070 IF transaktienummer<10 THEN 
1080 transaktie_a-1 
1090 ELSE 

1100 IF t/transaktienummer<.5 THEN 
1110 transaktie_a-0 
1120 ELSE transaktie_a-1 
1130 END IF 
1140 END IF 

1150 END DERne speler_a 
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fE.uBob Visser.(l) 


deeli 

Op p.403 en votgend van Quasar ctoet Borf 3?n 
m.i. geslaagde poging gegevensbeheer !r Iwt 
algemeen an hat gebruik van Archive tett 
bijzonder under Uw alter aandacht te brsnpen. 
Omdat k geconstateerd heb dat nr r?cgs! y?ftt 
misverstand hearst over begrippen aJs 
"elect ronische kaartenbak", "dateb 

"relationeer e.d. hierbij aen pcging 
©an an ander toe te Mchten. We bsglmief; 
eenvouoig. 

Neam aen kaartenbak. Hiertn zitten ksarten, m<*! 
op die kaarten aUertei gegevens. Voor iedere 
harkenbare aenheid In da werkelijkhekt (sop 
book, aen persoon, aen order e.d.) houden we 
eenkaartbii. 

Wehebben. 

1. gegevensaiementen, oiwel attributen, velden, 

variabeiene.d 

2. herkenbara eei iheden of objecten. Zo’n 

aenheid kan ziin: aen persoon, 

Aan hat OBJECT 'persoon' Kunnen we diverse 
ATTRIBUTEN onderscheiden: ©men, booon, 
hoofd e.d. Voor iedere persoon kunnen w® ©en 
’kaad’ asnfeggen in eisze loiart®nb$k. Cverigens: 
’persoon' noemen we vaak hat ©8JECTTYPE; 
hiermae bedoelen we de min of meer abstract® 
verzameling personen. 'Jansen' is aen 
OCCURENCE van di! objeettype. 

In meer gewons tormar,: 
vastgelegd met behuip van een CFSTAti?? eon 
oosurence met behuip van aen RECORD Te 
kaarten in een kaartenbak hebben meestal aen 
bopaalde volgord® Deze votgorde worrli bopasM 
door hat SLEUTELATTRIBUUT. Meestal 


rfearfos bastemde administraties door ta voeren! 

W« noamen dit hat gevaar van 
IXtQOffSaSTEMfE gegevens: de data spreken 
cfcsar lagan. 3n een beetje omvangrijk bedrijf heb 
j© nm verschillende gegevensverzamelingen. 
Cvet’ het aigemeen heeft iedere afdeling z*n eigen 
adminteiraties. Gegevens over klanten kunnen 
aanwezig zijn bij de afdeling Verkoop, de afdeling 
Fa&up&dng, de afdeling Marketing e.d. Via een 
ingewkkeld stekel voorschriften en veel kleurige 
bonnetjes etc. wordt getracht deze gegevens 
consistent te houden. Dat kikt vaak maar zeer 
gedeeltelijk. Tot zova; de niet-geautomatiseerde 
sftuatte. 

Nr,: kom. one gewaardeerd Sin_QL_Air lid op een 
idee, als 5k nu sans de kaartenbak waarvoor ik 
verantwoofdelijk ben in m’n QL stop, dan hoef ik al 
di® Reven-Sjsten ook niet meer bij te houden: de 
ecsrputer neemt bet tijdrovende zoeken voor zijn 
retaining i Hij probeert tiet eerst eens thuis uit met 
een bestarsdj© van z’n... boekenverzameling. 

Even FRsderatan: een book is hier dus het 
©F3JECT; sm dit object kunnen ATTRIBUTEN 
dsrdotechekleri wertien. Welke ? Dat maakt de 
gebndtar utfe-aard zelf uit, want dat is geheel 
aflra-iMjk van de doeistelling van de 
adiTtinistrfitte, Wat wil ons OL-lid ? Ten eerste zijn 
boekenbozft bescitrijven, ten tweede bepaalde 
boeken snel op kunnen zoeken en ten derde het 
uttHeftsn vast booken bijhouden. Na enig gedub 
fwmt fyi tot de voigende relevante 
aigav^drtappert: ayfeur, titel, jaar van uitgave, taal, 
rjnrjerwerp. rfirjdp'uMts, gelezen ?, uitgeleend aan, 
tlitf,<!OS©OWlOp. 

t«c M m zwart© ioetsen en ARCHIVE 

i ■pfcfejtev 5 !. iOaargaan we: 


widen we dit het belangrijkste gegevsn, fcijv da 
n&am van een persoon. Het zoeken op hot sleute'- 
af ribuut in de kaartenbak gaat meestal lekker srvsV 
we kunnen sprongsgewijs zoeken (vnrgelf: 
zoeken in het telefoonboek). Willon we op esn 
andUi aiiribuui gaan zoeken (bijv. op het 
voorkomen van bepaalde straatnummers in het 
telefoonboek), dan moeten we ieder object 
afzonderlijk bekijken. Dat duurt dus wel even. In de 
praktijk zien we dan ook dat er vaak meerdere 
’kaartenbakken’ of indexlijsten warden bijge- 
houden over dezelfde objecten, zodat via 
meerdere ingangen de gegevens geraadpleepd 
kuncjetivvurden. 

Dus: een ta&rtenb&k mat al J*t peisoneel 
geserteerd op naam, een andete dak gesoheeid 
op geboortedaium, een aantal lijsier, met net 
peruoneel Qtn^d-eerd rjsat de afdeiingen waanoe 
zij behoren e.d. Het bijhouden van diverse 
kartunbakken {& admfniatraties) over dezeifde 
obje:,ten is een tijdrovende en vooral lastige kius. 
Warl o wee als j@ verges! bepaalde mutaties in alls 


mmm 

ijteurt* iltel$ Jaar taal$ 
vindpfaats gelezen$ 
fiRgelopI SNOCREATE 


In a'dor® (meer volwassen) 

kaaJM'v^^BtagifarairiKi (DBMS) zou je meer keuzes 
hebb* l? ^ FORMAAT van je attrSxjten, en 
zou ^ ■: >” moe’ii^n geven hoeveel tokens een 

attrifv. i * t < kan hevatten, bijvoorbeeld: 


liSfifecir 

Jain- 

tm 

V ; - 

(/i 


YEKEN 30 

TE^EN 60 

CUFER 4 

YEKEN 15 

TEKEN 60 
CUFER 6 
BOOLEAN 1 

TEKEN 15 

DATUM 6 














Keyboard 

Bubbelmat 

Membraan 


bovenkant (compleet) (gebruikt) 

15.* 

, • 17.50. Q 


TJSr 

CUFER (door geen $ achter de veldnaam te 
zetten). De meeste andere DBMS'en kennen 
minimaal de hiervoor genoemde vler data-types. 

Wat hebben we nu gedaan ? We hebenbet 
raamwerk gedefinieerd voor ons BESTANO van 
boeken. Met behulp van de computer wordt bier 
een RLE van gemaakt. We hadden ecbter net zo 
goed een kaartenbak en een pak fiches kunnen 
kopen: bet principe Is predes hetzelfde. 

We spreken voor dit soort toepassingen dan ook 
van een ELECTRONISCHE KAARTENBAK. 

Ons be stand heeft In principe precies dezelfde 
mogelijkheden als een ’echte’ kaartenbak!) 

Het enige verschil Is dat we In ons computer- 
bestand niet zelf hoeven te zoeken: dat doet de 

J- et op: een elec * ronische Prijzen zijri inclusief verzendkosten. 

kaartenbak bevat dus gegevens over 66n - 

bepaalde verzameling OBJECTEN, in dit geval - 
boeken. Pas als we over verschillende soorten 
objecten gegevens gaan bijhouden spreken we 
over een DATABASE ! In een database woiden 
dus een (groot) aantal kaartenbakken 
gelntegreerd. Dit betekent dat een database ook i EEN QL (mag eventueel defect zijn) 
een (groot) aantal bestanden (files) omvat, terwijlC ?.?. <'?•«;! .>*■ ■ • ‘ f 

een electronische kaartenbak altijd maar uit 66n-o TekooptBrotherEP22.Prijsn.o.tk 
bestand bestaat. Levert een electronische * 

kaartenbak eigenlijk geen enkel extra voordeel ' ^H 
boven een handmatige administratie, een>- 7" 

database doet dat wel.Volgendekeer....meer! ■<* w.t); 


Mlcrodrive unit • go , 

ULA Mfcrodrive 2G-007(IC29IC30) 25. 

MC 68008(1018) 105- 

8049 QL (1024) 30 . 

2X8302 (1023) / 50 . 

ZX8301:CLA231 0 (IC 22 ) ‘ 40 - 

HAL8449QL(IC38) .* * 40.- 

JSEpromscompleet 50 !" 

JM Eproms compleet (gebruikt) 

AH Eprom8000 (gebruikt) 


GEHEUGEN-UITBREIDING 512 K 220- 
DISC-CONTROLLER+RAMDISK 275.- 

GEVRAAGD (VOOR DECLUBIVM DATABANK): 




Als u niet meer 
weet of u al 
betaald heeft, kijk 
dan op uw etiket. 

f40 betekent dat u 
nog moet betalen. 

f40 'piek' voor een 
'piekfijn' blad! 
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• 'vpinaooi, yy yen u njyoa u^siurBn. 

Het formaat is Vooriopig nog niet eebt belangrijk. 


SLUIT1NGSDATA INZENDEN kOPU : 

Qua8ar26:7mei; 

Quasar 27:4juni : 

Quasar28:9juli 
Quasar29:27 augtistus 




Het 500ste lid krljgt, zoals beloofd, een 
Miracle modem kadot 
De overhandlging biervan zal geschleden 
op depljeenkomstvan 23 mel In Utrecht. 

De gelukklge Is de beer E.Hoogcarspel 
uit Schiedam. . v , , 

» « i* ' * ■ m' ; •;, f * '•* . t '] 1 *-i. ; 

Gefeliclteerd. 
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< >t M tlau 53 T'oeiteareen bijeenkomst in 
' itifeiiU. Mm-, ©rebbebasgiaan 15. 

?«to9l: k *J Vrsfslt MTS. 

Op deze bijeenkomst wllen we proberen een 
•spontaar’ vraag en wtwoord-uurtje te houden. 
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Thiii '100110' is dus 38. (de 
Nf-iiihtoordt later nog eens uit 
^*exdbectrAaaTrekerierty> m 
-DmiWnat fe^nen/Jmaar «T3d 

1 iSwiSS ' ■ ^ tfaa. tiff 

^ A Vijfde pladts? MWVijj 
* ^ we| rraw^t teln de^ertl 

! v«i. .. lachinetasPgeBftfikdHjk ^*i<8-SoUden# 
: rr ken. en dus getmillct men 8,16 of 32 cijfers. 

worden BITS : 'Wiir H$ 

2%, 1i§rr.1«MeWfaaidic*c!jfer. Nu geef ik 

•**«>*• ^sen' vdof me tffte~rekerferrw3s& 
>tie*^igerxl«32^itsget«lUV:^tt.' r n«v 
!It. 3 ^ • ~“vi ;w-.‘fc-> 1 «* •■ ;vib'■:«. v,<r •tertv.oi,'./ 

i Sr »;*; ^tmonoiifi 1001001 ic < «s 

j ^ *i&c- m ..*• ^ ntjv *ierr •■£* *b n?:> -i afcl 

•* W^raicihiieiijkiifel.^tels Hdf 

brnttf zierfwSlke waarde een geta! 
T ^.Wrt‘‘fs Wet'hartdig orriie i®f1 
‘ ->!&) Qjrofef «. Het is Welle dotfff 

1 tauku* tfiBwirtH*,- mdarje maakt al 

J 5>,iuiteR bij heP^ntyfrah, en je gebruikt 
- ^^-pdpwr. zob» tk weemuffi-iM 

* vaaR- s ach^buden. Zo 
rfflUtetflri iSul^r (fKrf^ribK^ 
.. . v rfi *of nel'sttp 30 *sb wueinqo nsiv *W 
; ! w *3btovw nerr-itflbtesmegeetteiq 

iolbcmo ^'10010*10* 5 - 

j 00100110 •• * «t‘*6fx3r .**m.5? uevirf^sm 

j istjirf $•* i**n no o*> n«Lan nsr* 3*" «««-a* nemoX 

! Een groepje van 8 bits wordt den^YTC^hoerrid? 
Zo gaat het telfeil'^h^^diW^ 'aVlite^hellef; 
j maar je gebaiiktifcg wWr'jsapfefj^lHelaas meet hot 

l ilMJ ***”''*™**^*e^^*^; 

-.«r®Sw*r-.oi «ng«r 

f j TES t i inoi i «i»ntt'3frh sent - 

\ _*** -JiirtWfie ,Hf nav Knson oteiea 

i t ■ <A3fyo+i A 3rxSMSS 

Wai BDhleiWi iVep-iWernu nisoe op-suit U/ vragfen 
i Wei, als we nu weer gewoon decimaal gaan teflen, 
iksineiTweaiie«n?ii^|itfhd^’ • ^b ew ^nnuM cl 
B*^nne»twieijwct»fi#,*aan kunnen*w» Met eerSte' 
^9^'Otit O') ilioorcteHe'niloMr hetJcijfer •«‘ (Cte6 
** v* et*» nemuJt irloem eteiee 

- dS van v»f. 

v dug; • Vwvengen door 

*mr»> ms**?? ^iyMeih^i|ltano6ret»itf te ons 

~ 41 0 tellen op 1 posUte. 
** h^8i .ti A e«h!er tot 18 (tel 

es^«u- "H^Heiebinaire 

' ■. riecii -aai - »ou 


j.y ?moet ■ 

'!■ taijgent^ 
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komoir 

«0V ^'•■^•#9 6 13 15 2 6. 

Uztetdat kvobr verschiilende groepjes meer dan 
Idjfer nodig heb. 


tellen vanwege vier 



’:-y«pr:3C '..-s'ij 

: . - .... 

btts; moet#n we daarmee iiaar het stelsel met 

gtphdtal 16. het HEXADECIHAUE STELSEL. 
zoafs we Neiboven hebbeO gezien Is het voor het 
positiestelsel nodig dat Wb op 66n positie, met 
66 n cijfer de waarden kunnen aangeven tot het 
grondtal. Als we nu 1ien' isen# aangeven met een 
letter; de letter 'A'. Vender vervangen we de ’ll’ 
door de tetter ’B'renzovoort. Oen kunnen we op 1 
positie makkeSjjk totvijftien tellen^ ; ' 

M.T >1 ^44 5,6 T 8 9 A S )C D E F. 

Eers’P komt dan due cvereen met 15, een 'E' met 
H etcetera. #,&*** <- 
Zpjyist heeft >t U kennis gemaakt met het 
HEXADF.CIMAU; stelsel. Dit jniondt wel afgekort 

mstHEX, j -t |~fc fi /; ‘*ijn 9 u 

Ate ^we even te^jgkerer lot het worige voorbeeld, 

dantajnr^p^^pqMJlSQ^O^uns-, 

.il=n - 0 ^ 00 . 

nsv tnoem m: at nev tart 

b j-, w>^ - . komt ovoreen met: 

4:4 ».,. « o f * «• 

ii >■,' i-sv frciweo nee ^to . ■ 

Zp Winner) we een aaredpniijke hoeveelheid 

papier vfcesparen, Td 0 n bovendien duidelijker 
werken. Overigens, pmepjes van vier bits worden 
een^lllBSLE genoemd. Groepjes van acht bits 
8 eten. ; dus een. byte, groepjes van zestien een 
9tfOBD, en s^epjes van lweende»tig een LONG 

S^^|fiJetnefih.ievo 8 *losv *g 

Gejsijifceliik tejom^defweergave van bytes de 
^at$ea~rtie met nul zijn gsvuld ook zo op te 
schrijwen, het petal '60' wordt d- *s niet als 111100 
opgescbreven (32^16^4^ maar als 00111100 , 
Of, In he;x 3C. (0011-3;4100«C). f , 
Nu^jpaw^een.and 6 r prbbieem ertstaan. Ik wilde 
l^rteoyen. opschrijven: 4100 ^ 2 * 0 , maar dat is 
it*«|>Ope€lAjKtg»et aangeven-in welk grondtal ik 
r^MwivMen kan op verschiilende wijzen aangeven 
met walk grondtr,! gerekend^verdt. Men kan het 
gpciySai-jnn- ideo.'^gfllal hanger; dan wordt 
aevenjierv dus Oinate -*0001 00012 ^,decimaal 
•l^tor^en hexadedmaal wordt dan 1116* 

Eeri yi^emde gewaarwoiding om 17 zeals we dat 
k$pnenplotseling a|s *111 &■** zien... Jr ~ r 
Ook kan men een letter in plaats van het grondtal 
gobniHfen. p^-tep^.bli^'els een *B' onderaan 
het getal aangegeven,, dedmaal met een 'D' en 
hexadecimaal met een ‘K. In dit geval dus 
1lH. 17q en 00010001 B . 

Omdat het niet handig is om steeds met de wagen 
van de typemachjne^e^knceienjc er tenslotte nog 
een derde mogelijkheia om het grondtal aan te 
geven; men plaatst een teken v 66 r het getal. Voor 

jlJ12dlL 

















'vrv 



?',/« C Hl-'i's ( 
' - ,'!f <v , i kl. * . > vi 


Machinetaal 

cursus 


unraxja* 



Inleidina 

■- •< • 


tars, 


Deze cursus vatt uiteen in teen aantal deten. 
eerste is het vereist dat Uenige kcnnis 
van het binaire rekenen. Vender is konnis over het 
inwendige van de microprocessor niet ontbaedijk. 
terwijl ook de nodige aandaeht aan de operating 
software zal moeten woiden bexaed, Verier 
dient U op de hoogte .e komen van de teni& 
nologie. Een aantal boeken die aanstulfen op at? 
bij deze cursus is ’QL Advanced User Guide' doo? 
Adrian Dickens (uitgevor?) ADDER), The SincLJ' 
QDOS companion' srr ’Assembly lang?*?©: 
programming on the Sinclair QL,’ befden loor 
Andrew Pennell, uitgigevsn door Sunshine 
uitgeverij. Alle boeken zijr (hahas) in het Nigels. 

Veel mensen vinden hei rowsslijk zich *Ms voor t©"' 
stellen bij een stuk assembleertaal: hoe doe ik het, 
hoe geef ik de opdrachten, en hoe krijg ik het een 
en ander aan de praat? Het principa van een 
machinetaal programma is dat het dicht bij de 
machine staat. Zo dicht echter, dat er een special 
programma nodig is om oris niet in veiwarring te 
brengen. We programmeren in een eenvoudig 
taaltje. Dit 'gooien' we door de assembler heen. 
Deze vertaalt het programma dat we hebben 
opgegeven naar enen en nullen, zcdat 
processor ze kan uitvoeren. DU uSw-wsf 
echter zo snel dat we wederom fen hujppir " 
gramma nodig hebber. om to kunneit zie-. m 9 ?' 
gebeurt. Een 68008 kan vole instrutitos -pa; 
seconde uitvoeren. Een monitor 
verwarrend, ik geef het toe, is een programme ox 
ons in staat stelt stap voor stap, of mot beho ? >.< 
sprongetjes door ons programma heen te iop> 

De programma's en hun geortitk knmen later pas 
aan de orde. Eerst moeten we ons wat vertrouwr' 
maken met de nodige theorie. • .’* . 

Later kunnen we een aantal sessios uitvoeren 
waarin we de programma's gebruiken en het 
eigenlijke programmeren doen. Misschton is dit 
uitstek een item om op bijeenkomsten te organ! 
seren. Eerst dus droogzwemmen. 

Binalr fallen 
Positle stelsol 

Een kind dat leert rekenen begint eenvoudig. 
Tellen is de eerste stap: 66n, tw66, drie en verder. 


tot 9. Nu heeft de natuur ons uitgerust met tien 
vingere, dus op een gegeven moment is de kleine 
toe aan 10. Vaak meldt hij of zij dan aan ieder die 
het heron wH: a. ken tot TIEN tellen. In feiteis dit 
Sijzonder. Niet dat tet.gavat let lien-kan Alien, 
mar het fort dat hij de nui gsbruikt.. Als -hot kind 
jOen djfers ; meer weal, gebrujjct heta een 
j 'mlMiUtia van teger-s cijfers. T«n; 64n-hui, 10. 
iaf-zsifde treed! op als hi^ t>ij;99 is uitgetel^, en 
TOO meet geisnsiken. 66n-46n-nul. We zieg dat 
vns positie-stelsel gebrufo maakt van vrjSfftrjeen 
Isjjfer staat. Moe veid©; he? naar links staat .in een 
gatal,- hoe grojer de waa d* Is. In hff decimals 
stsisel gebruiken we deciffertv 0 tot an met 9. De 
verset ^etde getallen die feumen worden 
aringegeven hinnen 66n positin zftn dfc 1 . at en 
;o©?.9;Gaan'.w dan ?aar een volgende, .positie, 
1 ■ ?? rafvhr:,/ de wiarde' van een cijfer op die 
piaats met een factor 10 toegenomen ewkunnen 
‘m bdvencBen sneer jetallen weergeveft/We 
5 AO in dan ; da getalien tossen . 10 A®n^ 99 
aq^tgoved, o?. we ook sen nul toestaan op de 
eerste piaiats^de ^getallao 90 to? en met 99; Tien 
word! list GRONDTAL genoemd. ledere jfcsitie 
die Pen cijfer naar links -chufft, nee;ot zijn waarde 
• een factor 10 toe. l .(d^ni) sen positie naar links 
gsichoven (dit gevsn wi aan door er een 'O' 
rechts van te ,z§tten> ge$tt 10, tied maal zeveel, 
oftewel: een facie t .‘grondtal’ maal awtti.. : 




Bteei? stelsel 
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Stei nu oens voor dat ws ijet tien. rnaar i virtger 
gahad zoudeh hebben. Be halve dat het knap 
lastig eten is, zouden we ook minder goed kunnen 
‘e-fen in het tientallig stelsel. Immers, tot een tellen 
£atj tog wel, maar dan komen we al snel in de 
>;^aispwden,. want twee kennen we helemaal 
'ity. We zouden dan dus al snel het kind horen 
zeggen; ?ik kan tot twee teilen”. Passen we 
;•!'< du is-juk van het kind toe dan kunnen we 
«•«! fe! twsfilflien: een, een-nul. Onmiddelijk gaan 
■a- hiertij diis over naar de volgende positie. Daar 
T 'de *1' dlewa neerzetten een factor GRONDTAL 
»ospenomen. GRONDTAL was nu net het getal 
dm w© niet konden vormen binnen de ons 
bpspMcbare cijfers. Blijkbaar la hier dus het 
qrppdtar 2. Noemden we het tientallig stelsel 
lEClMAAL, hot tw votallig stelsel met grondtal 2 
v ©men we BINAIR. We kunnen dus nu in het 
Oinaire stoisel tellen tot drie: 'nul' wordt 
wo^rgegeven door 0 ( of 00 als we twee cijfers 
gtii ulten), en we tellen vert*r. 01, 10, 11. Dan 
zljn we dus tot drie gekorwr. Nu moeten we 
verder met vier. Hlervoor moeten we een 
volgende positie -Ue derde- gebruiken, waatbij 
een cijfer dat op deze positie staat, de waarde 
2*2-4 (2 A 2 is 2 tot de tweede macht is 2x2-4) 














